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

@Makelroy · Регистрация: 10.05.2012

В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1. Количество отрицательных элементов массива
2. Сумму модулей элементов массива, расположенных после минимального по модулю элемента.

@CodeR · 27.05.2012, 20:30

Pascal

Var A:array[1..100] of integer;
    i,min,k,s,n,t:integer;
Begin
    Randomize;
    write('Введите размерность: ');readln(n);
    s:=0;min:=10;k:=0;
    For i:=1 to n do
     Begin
      A[i]:=random(10)-5;
      write(A[i]:3);
      if abs(A[i])<min then 
       Begin
        min:=A[i];
        t:=i;
       End;
      if A[i]<0 then inc(k);
     End;
    For i:=t+1 to n do
     s:=s+abs(A[i]);
    writeln;
    writeln('Кол-во отрицательных=',k);
    writeln('Наименьший по модулю элемент=',min);
    writeln('Сумма модулей после минимального=',s);
    readln;
End.

@Makelroy 4 / 4 / 0 Регистрация: 10.05.2012 Сообщений: 87
		1
	В одномерном массиве вычислить сумму модулей элементов массива, расположенных после минимального по модулю элемента 27.05.2012, 20:13. Показов 2465. Ответов 1 Метки количество отрицательных, минимум, одномерный массив, сумма модулей (Все метки) В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. Количество отрицательных элементов массива 2. Сумму модулей элементов массива, расположенных после минимального по модулю элемента. 0

Опции темы

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

Решение