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

Question

Информатика

Яня

3 июля, 05:40

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

+2

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