Question

Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчёт суммы и среднего арифметического введённых положительных чисел. Желательно с объяснением

Answer 1

Ответ:

program name;

var

a, b, c: integer;

sr: real;

begin

b:=0;

c:=0;

repeat

write ('Введите число');

readln (a);

b:=b+a;

c:=c+1;

until a=0;

sr:=b/(c-1);

writeln ('Сумма',b,'Ср.арифмет.',sr:4:2);

end.

Объяснение: