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

Question

Информатика

Зинуся

24 января, 10:22

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

+5

Ответы (1)

Знаете ответ на вопрос?

Сенюха · Answer 1

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.