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

Программа запрашивает у пользователя количество чисел, которое он будет вводить с клавиатуры. После этого пользователь вводит числа,а компьютер находит среднее арифметическое только для положительных чисел

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

Programe pp;

var a,b,c:integer;

begin

writeln(введите количество чисел);

read(a);

c:=0

for a=0 do begin

a:=a-1;

writeln(введите число);

read(b);

if b>0 then

c:=c+b

else

Writeln(положительное число)

end;

writeln(c);

end.