Var
i,n, pol: integer; //pol - количество положительных чисел, n - количество всех чисел
a,s: real; //a- вводимое число, s - сумма положительных чисел
begin
pol:= 0; //обнуляем счетчик
s:= 0;
writeln('Введите количество чисел');
readln(n);
for i:= 1 to n do
begin
writeln('Введите число');
readln(a);
if a > 0 then
begin
s:= s + a;
pol:= pol + 1;
end;
end;
writeln('Среднее арифметическое положительных чисел: ', s / pol); {среднее арифметическое равно сумме чисел делить на их количество}
end.