Найти сумму и количество элементов, абсолютное значение которых больше среднеарифметического - Pascal ABC

Формулировка задачи:

Ввести целочисленный массив, состоящий из 17 элементов. Найти сумму и количество элементов, абсолютное значение которых больше среднеарифметического положительных элементов.

Код к задаче: «Найти сумму и количество элементов, абсолютное значение которых больше среднеарифметического - Pascal ABC»

textual
var
mass: array [0..16] of integer;
i,k,sum:integer;
sred:real;
BEGIN
for i:=0 to 16 do
  begin
  write('Введите [',i+1,'] элемент массива: ');
  readln(mass[i]);
  end;
  
sum:=0; k:=0;
for i:=0 to 16 do
  begin
  if mass[i]>0 then 
    begin
    inc(k);
    sum:=sum+mass[i];
    end;
  end;
sred:=sum/k;
 
sum:=0; k:=0;
for i:=0 to 16 do
  begin
  if abs(mass[i])>sred then 
    begin
    inc(k);
    sum:=sum+mass[i];
    end;
  end;
writeln('Сумма = ',sum,', количество = ',k);
END.

12   голосов, оценка 3.917 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы