В матрице хранится информация о зарплате n-участников за каждый месяц года.
В матрице хранится информация о зарплате n-соучастников за каждый месяц года. Определить среднюю заработную плату за каждый месяц и в каком месяце средняя зарплата была самой высочайшей. Паскаль.
Задать свой вопрос1 ответ
Diana Donosova
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 sgt;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
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 sgt;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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов