Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчёт суммы и среднего арифметического введённых положительных чисел. Желательно с объяснением
Ответы на вопрос
Ответил masken9
0
Ответ:
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.
Объяснение:
Новые вопросы
Українська мова,
11 месяцев назад
Экономика,
1 год назад
Биология,
1 год назад
Другие предметы,
6 лет назад
Алгебра,
6 лет назад