Написать средне арифметическое послед дроб чисел

Question

Информатика

Анаид

12 августа, 05:56

Написать средне арифметическое послед дроб чисел

+3

Ответы (1)

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

Савета · Answer 1

Если я правильно понял, то вот:

var i, n: Integer;

sum, t: Real;

begin

writeln ('Введите кол-во чисел') ;

readln (n) ;

for i:=1 to n do

begin

writeln ('Введите ', i,' число') ;

readln (t) ;

sum:=sum+t;

end;

writeln ('Среднее арифметическое чисел: ', sum/n) ;

end.