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

1 ответ

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

DevAdmin

1720

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 01:59

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

Найти нужный

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

Объясните я не понимаю такие задачи))) Статья, набранная на компьютере, содержит 48 страниц, на каждой странице 40 строк, в каждой строке 64 символа.... Паскаль типы данных Напишите пожалуйста кратко Оочень надо... Доклад на тему древние носители информации. Срочно!... Отгадайте ребус там Чайник Губы Ёлка ... Помогите, очень срочно как нарисовать ракету в паскале ABC...