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

Question

Информатика

Русланыч

31 марта, 04:32

С клавиатуры вводится целое число 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.