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

1.

Progran pass;

var

M: array [1 ... 12] of integer;

n, s, i: integer;

sr: real;

begin

for i:=1 to 12 do

begin

write ('Введите число пассажиров в ', i,'-м месяце');

readln (M[i]);

end;

for i:=1 to n do s:=s+M[i];

sr:=s/12;

writeln ('Среднее число пассажиров за год: ', sr);

readln;

end.

2.

Program igr;

var

I: array [1 ... 100] of integer;

d, n, f, j, max: integer;

begin

write ('Введите количество игроков: ');

readln (n);

for j:=1 to n do

begin

write ('Введите число очков ', j,'-го игрока ');

readln (I[j]);

end;

f:=I[1];

for j:=1 to n do if I[j]>f then

begin

max:=I[j];

f:=j end;

writeln ('Лучший игрок - №', f);

readln;

end.