Найти сумму и среднее арифметическое положительных элементов массива A(N)

1

Ответы и объяснения

2012-05-10T21:56:07+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a:array[1..10] of integer;

i,s,n,k:integer;

Begin

  read(n);

  for i := 1 to n do begin

    read(a[i]);

    if a[i]>0 then begin

      s:=s+a[i];

      k:=k+1;

    end;

  end;

 

  writeln(s, s/k);

End.