Программирование ** паскале.Найти среднее арифметическое положительных чётных чисел...

Question

Программирование на паскале.Найти среднее арифметическое положительных чётных чисел натурального ряда до N.(Использование цикличного оператора for)

Answer 1

Var a,b,c,n:integer;
begin
writeln('введите количество чисел');
readln(n);
c:=0;
for a:=1 to n do begin
write('введите число => ');
readln(b);
if (b>=0) then c:=c+b; 
end;
writeln('среднее  арифметическое чисел - ',c/n);
end.