Найдите среднее арифметическое N первых натуральных чисел.

Question

Информатика

Ульяныч

26 мая, 16:55

Найдите среднее арифметическое N первых натуральных чисел.

+3

Ответы (1)

Знаете ответ на вопрос?

Селивёрст · Answer 1

Program n1;

const n=5;

var a: array [1 ... n] of integer;

i, S: integer;

begin

writeln ('дано ', n,' чисел; ') ;

for i:=1 to n do

begin

write ('введите ', i,' число: ') ;

readln (a[i]) ;

end;

for i:=1 to n do S:=S+a[i];

writeln ('среднее арифм: ', S/n) ;

end.