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

1 ответ

Посмотреть ответы

Megamozg

2205

Program z;
var a,i:integer; max:real;
begin
max:=0;
i:=0;
repeat writeln('Введите число'); read(a);
max:=max+a;
i:=i+1;
until a=0;
writeln('Сумма =',max);
writeln('Средние значение =',max/i);
end.

Хороший ответ

28 декабря 2022 23:46

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Провести сложение, вычитание, умножение и деление двоичных чисел 1010₂ и 10₂ только с решение))буду благодарна... 1. Какое устройство осуществляет обработку информации? а) джойстик б) процессор в) клавиатура г) сканер д) ксерокс е) монитор 2. Какие устройства исп... Как звать друга Бастиона из игры Overwatch?... Приведите свои примеры профессий в которых основным видом деятельности является робота с информацией... Перед отключением компьютера информацию можно хранитьгде?...