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

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 = 5000

b = 10000

(10000-5000+1) + 5000 = (5001) + 5000;

Если захочешь поменять сумму зарплаты, думаю поймешь теперь как.

for i:=1 to 18 do s:=s+a[i, 6]; - этой строкой изменяю i (т. е. работников), а j оставляю неизменным и равным 6, так как июнь 6-ой месяц по счету.