Здравствуйте. Нужна программа на Pascal ABC, которая будет находить среднее арифметическое n чисел и округлять его до целых. Даю 100 баллов!!! СРОЧНО!!!
Ответы
Ответ дал:
0
var
i,n,m,s:integer;
begin
Write('n='); Read(n);
s:=0;
for i:=1 to n do begin Read(m); s:=s+m end;
Writeln('Cреднее арифметическое округленно равно ',Round(s/n))
end.
Пример
n=5
3 6 2 4 3
Cреднее арифметическое округленно равно 4
i,n,m,s:integer;
begin
Write('n='); Read(n);
s:=0;
for i:=1 to n do begin Read(m); s:=s+m end;
Writeln('Cреднее арифметическое округленно равно ',Round(s/n))
end.
Пример
n=5
3 6 2 4 3
Cреднее арифметическое округленно равно 4
Ответ дал:
0
Практика показывает, что чем автор вопроса "дремучее", тем выше вероятность, что из двух практически одинаковых ответов он выберет лучшим тот, который длиннее )))
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад