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

Question

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

id95874775 · 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.