Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и подсчет суммы и среднего арифмитического введённых положительных чисел.Используйте оператор 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 Сервис, обеспечивающий пересылку файлов между компьютерами сети независимо от их типов, особенностей операционных систем, файловых систем и... Напиши ,какая информация нужна для презентации темы «сезон года»... Выберите правильный ответ. Для записи вспомогательных алгоритмов в языке Паскаль используется: А)массивы В)составные операторы С)процедуры и функци... Что такое система команд исполнителя алгоритмов ски... Какие разъемы имеются на системной плате?...