Склавиатуры вводится целое число n. затем вводится - вопрос №535512 от лол1635 18.07.2021 00:40

Question

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

лол1635 · 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.