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

Question

Информатика

Николаич

28 января, 14:40

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

+4

Ответы (1)

Знаете ответ на вопрос?

Ольгуша · Answer 1

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.