Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) подсчет суммы и среднего арифметического введённых положительных чисел и определение максимального (наибольшего) из введённых чисел.Используйте оператор repeat.
Ответы на задачу по Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) подсчет суммы и среднего арифметического введённых положительных чисел и определение максимального (наибольшего) из введённых чисел.Используйте оператор repeat. для школьников 5 - 9 класс. Прочитайте множественные решения и обсудите подходы с участниками. Ответы на этот вопрос уже есть. На нашем сайте вы можете задать свой вопрос и стать частью сообщества экспертов, помогая другим.
var
a, i, max: integer;
sum: real;
begin
max := 0;
sum := 0;
i := 0;
repeat
write(‘Введите число: ‘);
readln(a);
if a > 0
then begin
sum := sum + a;
i := i + 1;
end;
if max < a
then max := a;
until a = 0;
writeln(#10,’Сумма = ‘, sum, #10, ‘Среднее арифметическое = ‘, sum / i, #10, ‘Наибольшее число — ‘, max);
end.