Написать программу вычисления среднеарифметического последовательно вводимых целых чисел, пропуская отрицательные, с окончанием по вводу признака конца.

Question

Информатика

Маримьянка

18 апреля, 20:29

Написать программу вычисления среднеарифметического последовательно вводимых целых чисел, пропуская отрицательные, с окончанием по вводу признака конца.

+3

Ответы (1)

Знаете ответ?

Има · Answer 1

Var a, b, k, s:integer;

Begin

writeln ('Сколько всего будет чисел?') ;

readln (a) ;

writeln ('Вводите числа по одному через enter') ;

for b:=1 to a do

begin

readln (k) ;

if k>0 then S:=S+k;

end;

writeln (S/a) ;

end.