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

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.