Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.