Здравствуйте. Нужна программа на Pascal ABC, которая будет находить среднее арифметическое n чисел и округлять его до целых. Даю 100 баллов!!! СРОЧНО!!!
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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.