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

125

384

Посмотреть ответы 2

Ответы на вопрос:

стеффа11

Информатика

4,8(19 оценок)

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