Напишите программу в Паскале
Вычисление среднего арифметического значения последовательности дробных чисел. Количество чисел задается во время работы программы.
Вычисление среднего арифметического значения последовательности дробных чисел. Количество чисел задается во время работы программы.
More Questions From This User See All
Answers & Comments
Verified answer
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.