Вдвухмерном массиве хранится информация о зарплате 18 человек за каждый месяц года (за январь — в первом столбце, за февраль — во втором и т. определить общую зарплату, выплаченную в июне.
270
446
Ответы на вопрос:
Program n1; uses crt; var a: array[1..30,1..30] of integer; k,m,i,j,s: integer; begin for i: =1 to 18 do begin for j: =1 to 12 do begin a[i,j]: =random(5001)+5000; write(a[i,j]: 6); end; writeln; end; writeln; s: =0; for i: =1 to 18 do s: =s+a[i,6]; writeln('summa: ', s); end.высчитывает все правильно. зарплату поставил от 5000 до 10000 тысяч рублей, строкой a[i,j]: =random(5001)+5000; (b-a+1)+a - формула для расчета интервала чисел, т.е. зарплату поставил от 5000 до 10000, получается: a = 5000b = 10000(10000-5000+1)+5000 = (5001)+5000; если захочешь поменять сумму зарплаты, думаю поймешь теперь как. for i: =1 to 18 do s: =s+a[i,6]; - этой строкой изменяю i (т.е. работников), а j оставляю неизменным и равным 6, так как июнь 6-ой месяц по счету.
Популярно: Информатика
-
ievghienii117.11.2021 08:01
-
Саша2287732451621.06.2021 10:22
-
massenia21.09.2022 08:51
-
ilyavip041227.06.2022 09:44
-
ikonnikoval24.10.2022 08:31
-
Zayka123111.10.2020 22:13
-
lerkakotik198317.01.2021 00:37
-
jenja11702.02.2022 22:49
-
dashamaer104.08.2021 14:45
-
GDA115.07.2021 03:02