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

Question

Информатика

Розалинда

14 декабря, 05:44

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

+4

Ответы (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.