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

Вопрос школьника по предмету Информатика

В матрице хранится информация о зарплате 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