Найти среднее арифметическое положительных элементов массива A(100), заполненного...

Question

Найти среднее арифметическое положительных элементов массива A(100), заполненного случайными числами в интервале от -20 до +20
Ребята,помогите пожалуйста

Answer 1

Var b,c,k:integer;
a:array[1..100] of integer;
d:real;
begin
k:=0;
b:=0;
for c:=1 to 100 do
begin
a[c]:= random(41)-20;
writeln('a[',c,']= ',a[c]);
if a[c]>0 then
begin
b:=b+a[c];
k:=k+1;
end;
end;
d:=b/k;
writeln('Среднее арифметическое элементов массива равняется ',d);
end.