Склавиатуры вводится целое число n. затем вводится - вопрос №536189 от алекса146 05.09.2021 21:00

Question

Информатика: Склавиатуры вводится целое число n. затем вводится n целых чисел. перед вводом каждого из чисел должно появляться сообщение вида введите i-е число , где i -номер очередного числа. найдите среднее арифметическое вводимых чисел.

алекса146 · Answer

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.