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

July 2022 1 3 Report

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

Answers & Comments

petyaGavrikov

Verified answer

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

1 votes Thanks 1

Answers & Comments

Verified answer

vyvesti pervye n naturalnyh chisel summa cifr kotoryh nechyotnaya paskal cherez

napisat funkciyu nahozhdeniya kol va cifr cherez rekursiyu paskal rekursiya cherez

dano naturalnoe chislo n najti i vyvesti vse prostye deliteli etogo chisla pask

najti summu vseh dvuznachnyh chisel kratnyh 5 uslovnyj operator ne ispolzovat

vyvesti tablicu kvadratov chyotnyh chisel ot 1 do 19 uslovnyj operator ne ispolzo8c7a530ecfd9bf51e3d24901060af2b9 6290

dano naturalnoe chislo opredelit yavlyaetsya li ono palindromom napisat procedu

b napisat funkciyu dlya raschyota naibolshego obshego delitelya dvuh naturalnyh chi

dany n naturalnyh chisel najti ih naibolshij delitel ispolzuya algoritm evkli

materialnaya tochka dvizhetsya po zakonu s5t26t najti uskorenie tochki

v desyatichnoj zapisi chisla 424 dve cifry propusheny vosstanovite propushennye ci

рекомендуемые вопросы

Helpful Links

Helpful Social