С клавиатуры вводится целое число N. Затем вводится N целых чисел. Перед вводом каждого из чисел должно появляться сообщение вида "Введите i-е число", где i - номер очередного числа. Найдите среднее арифметическое вводимых чисел.

Question

Информатика

Ион

4 мая, 16:48

С клавиатуры вводится целое число N. Затем вводится N целых чисел. Перед вводом каждого из чисел должно появляться сообщение вида "Введите i-е число", где i - номер очередного числа. Найдите среднее арифметическое вводимых чисел.

+2

Ответы (1)

Знаешь ответ?

Кир · Answer 1

var

sum, n, i, tmp : integer;

begin

readln (n);

sum : = 0;

for i : = 1 to n do

begin

write ('Введите ', i, '-ое число');

readln (tmp);

sum : = sum + tmp;

end;

writeln (sum / n);

end.