Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю

@Bladedancer · Регистрация: 05.05.2012

В одномерном массиве, состоящем из n целочисленных элементов, вычислить:
1) минимальный по модулю элемент массива;
2) сумму модулей элементов массива, расположенных после первого элемента, равного нулю.
Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине - элементы, стоявшие в нечетных позициях.

@stimo15 · 06.05.2012, 03:18

1) даже обьяснять не буду, это элементарно, а вы ленитесь...

2)

Pascal

...
for i:=1 to 10 do
 begin
  if a[i]=0 then 
   begin
   j:=i;
   break;
  end;
end;
...

@Bladedancer · 20.05.2012, 10:49 **[ТС]**

Извините, просто я совсем не понимаю программирование, умницей не получается быть...Другими предметами тоже приходится заниматься.

@CodeR · 20.05.2012, 11:26

1)

Pascal

Var A:array[1..100] of integer;
    i,n,min:integer;
Begin
    randomize;
    min:=10;
    write('Введите размерность массива: ');readln(n);
    For i:=1 to n do 
     Begin
      A[i]:=random(50)-25;
      write(A[i]:4);
      if abs(A[i])<min then min:=A[i];
     End;
    writeln;
    writeln('Минимальный по модулю эллемент= ',min);
    readln;
End.

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю

Решение

Решение

@Bladedancer 0 / 0 / 0 Регистрация: 05.05.2012 Сообщений: 4
		1
	Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю 05.05.2012, 15:40. Просмотров 1351. Ответов 3 Метки нет (Все метки) В одномерном массиве, состоящем из n целочисленных элементов, вычислить: 1) минимальный по модулю элемент массива; 2) сумму модулей элементов массива, расположенных после первого элемента, равного нулю. Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине - элементы, стоявшие в нечетных позициях. 0

@Bladedancer 0 / 0 / 0 Регистрация: 05.05.2012 Сообщений: 4
	20.05.2012, 10:49 [ТС]	3
	Извините, просто я совсем не понимаю программирование, умницей не получается быть...Другими предметами тоже приходится заниматься. 0

Опции темы