Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) подсчет суммы и среднего арифметического введённых положительных чисел и определение максимального (наибольшего) из введённых чисел.Используйте оператор repeat.
Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) подсчет суммы и среднего арифметического введённых положительных чисел и определение максимального (наибольшего) из введённых чисел.Используйте оператор repeat.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
num, sum, count, max: Integer;
average: Real;
begin
sum := 0;
count := 0;
max := 0;
repeat
write('Enter a number: ');
readln(num);
if num > 0 then
begin
sum := sum + num;
count := count + 1;
average := sum / count;
end;
if num > max then
max := num;
until num = 0;
writeln('Sum of positive numbers: ', sum);
if count > 0 then
writeln('Average of positive numbers: ', average:0:2)
else
writeln('Average of positive numbers: 0');
writeln('Max number: ', max);
end.