Question

Нужно решить через Паскаль с помощью циклов for или while

1)Известно количество пассажиров за каждый месяц. Вычислить ср. арифметическое за год
2)Известно кол-во очков каждого игрока команды. Определить лучшего.

Answer 1

1) var s,i,a:integer;
begin
s:=0;
for i:=1 to 12 do
begin
read(a);
s:=s+a;
end;
writeln(s/12:0:2)
end.
2) var i,a,max,n:integer;
begin
max:=-maxint;
readln(n); {ввод кол-ва игроков в команде}
for i:=1 to n do
begin
read(a);
if a>max then max:=a;
end;
writeln(max)
end.