В двухмерном массиве хранится информация о зарплате 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-ой месяц по счету.