Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и подсчет суммы и среднего арифм
5-9 класс
|
итического введённых положительных чисел.Используйте оператор repeat.
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.
Другие вопросы из категории
следующему правилу: четное число умножает на 5 ,а от нечетного отнимает 2.
Читайте также
арифметического введенных положительных чисел. Используйте оператор repeat.
программу,используя оператор цикла While,которая будет вводить целые положительные числа не превышающие 100. Найти сумму квадратов чисел 2.Написать программу используя оператор цикла Repeat,которая будет вводить целые числа до тех пор пока не будет введён 0.Подсчитать среднее арифметическое введённых чисел.
большего) из введёных чисел.Используйте оператор repeat. Решить в паскале.
положительных чисел. Использовать оператор repeat.
Написать программу которая будет вводить целые числа до тех пор пока не будетвведён 0. Подсчитать количество положительных и отрицательных чисел.