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

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

Найти нужный

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

Что такое объект? что такое множество? информатика? признаки объектов?... нужны ответы срочно! 1. Рабочая книга Excel состоит из:1) рабочих листов;2) рабочих полей;3) столбцов;4) строк.2. В электронной таблице ячейкой называ... Как информатика связанна с Эвм? Поколения Эвм? В каких отраслях труд человека целесообразнее заменить трудом эвм? Существует ли связь между информа... Сколько нулей в пятеричной записи числа 5^260 - 5^160 + 5^60 - 5^46 + 6?... Заполните массив из 10 элементов степенями числа 2 (от 21 до 2N), так чтобы элемент с индексом i был равен 2i. Паскаль...