В одномерном массиве А (10) вычислить среднее арифметическое положительных элементов

Question

Информатика

Липа

24 февраля, 19:00

В одномерном массиве А (10) вычислить среднее арифметическое положительных элементов

+1

Ответы (1)

Знаешь ответ?

Митрич · Answer 1

Var

a:array[1 ... 1000000]of integer;

b, i, n, c, k:integer;

begin

readln (n);

for i:=1 to n do

readln (a[i]);

for i:=1 to n do

if a[i]>0 then begin

c:=c+a[i];

k:=k+1;

end;

write (c/k);

end.