Нужна программа на pascal abc, которая будет находить среднее арифметическое n чисел и округлять его до целых. 100 ! !

Кэйт777 Кэйт777    3   19.09.2019 05:10    3

Ответы
VladimirOwl VladimirOwl  08.10.2020 01:31
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
ПОКАЗАТЬ ОТВЕТЫ
knestor knestor  08.10.2020 01:31
Program n1;
var n,i,a,sum: integer;
begin
write('n=');
readln(n);
sum:=0;
writeln('введите ',n,' чисел: ');
for i:=1 to n do
begin
readln(a);
sum:=sum+a;
end;
write('срзнач: ',round(sum/n));
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика