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

Question

Информатика

Ромаша

5 сентября, 04:22

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

+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.