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

Question

Информатика

Романа

27 апреля, 11:24

В одномерном массиве А (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.