Напишите программу в Паскале

Вычисление среднего арифметического значения последовательности дробных чисел. Количество чисел задается во время работы программы.

Question

Информатика

Ферапонт

24 марта, 17:36

Напишите программу в Паскале

Вычисление среднего арифметического значения последовательности дробных чисел. Количество чисел задается во время работы программы.

+1

Ответы (1)

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

Роксана · Answer 1

Var N, i : Integer;

a, s : Real;

Begin

Write ('Количество чисел: ') ; Readln (N) ;

s:=0;

For i:=1 to N do

Begin

Write ('Введите число №', i,' : ') ; Readln (a) ;

s:=s+a;

end;

Writeln ('Ср. арифм. = ', s/N:8:4) ;

end.