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

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

Найти нужный

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

Пожалуйста помогите решить:) Система команд исполнителя Вычислитель состоит из двух команд, которым присвоены номера: 1 – вычти 2 2 – умножь на... Вася составляет 4-буквенные слова, в которых есть только буквы: И, В, А, Н, — причём буква А используется в каждом слове ровно 1 раз или не встречаетс... Объём сообщения, содержащего 11264 символа, равен 11 Кбайт. Определите максимальную мощность алфавита, который мог быть использован для кодирования эт... Системное программное обеспечение 1) Отметьте все программы, которые относятся к системному программному обеспечению драйверы, игры, редакторы текста... О какой характеристике процессора идет речь? Чем больше ........... , тем выше производительность процессора. В современных процессорах данная характе...