Составьте программу на языке программирования Паскаль, в которой требуется выполнить следующие действия: • Пользователь задает с клавиатуры последовательность из n целых чисел (n также определяется пользователем). Найти среднее арифметическое чисел из этой последовательности.

Question

Paver

4 год назад

ОТВЕТЫ

Vsevolod

Oct 24, 2020

var N,x,S,i:integer;

SR:real;

begin

writeln ('кол-во чисел в последовательности N=');

readln (N);

S:=0;

for i:=1 to N do

begin

read (x);

S:=S+x;

end;

Sr:=S/N;

Writeln('Sr=',Sr)

end.

222