Напишите программу в Паскале Вычисление среднего арифметического значения последовательности дробных чисел. Количество чисел задается во время работы программы.
Напишите программу в Паскале
Вычисление среднего арифметического значения последовательности дробных чисел. Количество чисел задается во время работы программы.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы