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

@Dan13 · Регистрация: 10.02.2014

Author24 — интернет-сервис помощи студентам

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

@rjxxx · 26.03.2014, 19:32

Pascal

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.

@Dan13 0 / 0 / 0 Регистрация: 10.02.2014 Сообщений: 9
		1
	Найти сумму и количество элементов, абсолютное значение которых больше среднеарифметического 26.03.2014, 17:09. Показов 4501. Ответов 1 Метки нет (Все метки) Ввести целочисленный массив, состоящий из 17 элементов. Найти сумму и количество элементов, абсолютное значение которых больше среднеарифметического положительных элементов. 0

	26.03.2014, 19:32

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

Решение