В матрице хранится информация о зарплате n-участников за каждый месяц года. Определить среднюю зарплату за каждый месяц и в каком месяце средняя зарплата была самой высокой. Паскаль.

Const n=5; m=12;

var

a:array[1 ... n, 1 ... m] of integer;

i, j, s, max, imax:integer;

begin

Randomize;

writeln ('Зарплата за год:') ;

for i:=1 to n do

begin

for j:=1 to m do

begin

a[i, j]:=random (15000) + 10000;

write (a[i, j]:6) ;

end;

writeln;

end;

writeln ('Средние зарплаты по месяцам:') ;

max:=0;

for j:=1 to m do

begin

s:=0;

for i:=1 to n do s:=s+a[i, j];

write (s/n:5:2,' ') ;

if s>max then begin max:=s; imax:=j; end;

end;

writeln;

writeln ('max = ', max/n:5:2,' месяц:', imax) ;

end.

Пример (для 4 месяцев, т. е. m=4) :

Зарплата за год:

12533 11176 15153 14194

12649 22212 15546 17586

23643 15664 15538 21740

24382 10015 15816 24377

11388 12739 18790 21034

Средние зарплаты по месяцам:

16919.00 14361.20 16168.60 19786.20

max = 19786.20 месяц: 4