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

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

Найти нужный

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

Выясните, какой сигнал должен быть на входе электронные схемы при каждом возможном наборе сигналов на входах. Составьте таблицу работы схемы. Каким ло... Дисковод это устройство для... В одной из кодировок unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке:*Это огромный секрет, име... 1.7. Задание с выборочным ответом. В процессе загрузки операционной системы происходит: 1) копирование файлов операционной системы с гибкого диска на... Каким образом выражаются отношения между объектами? каким образом выражаются отношения между объектами? назовите имя отношения в каждом приведенном пр...