Регистрация
SSultanShaS
01.02.2020 18:34
Информатика
Есть ответ 👍

Кумир 7 рисунок, нужны команды!

286
404
Посмотреть ответы 1

Ответы на вопрос:

anastasiya11лет
anastasiya11лет
4,8(92 оценок)

ответ:

var

a, n, s: integer;

begin

repeat

n : = n + 1;

write('введите число №', n, ': ');

read(a);

s : = s + a;

until a = 0;

if n > 1 then

writeln('среднее арифметическое= ', s / (n - 1))

else writeln('ни одного числа не введено');

end.

Популярно: Информатика