Вот задачка она из сборника взята!
В двумерном массиве хранится информация о зарплате 18 человек за каждый месяц года (за январь - в 1 столбце, за февраль во 2 и т.д.) Определить общую зарплату, выполненную в июне.
Ну заполняешь массив, а потом просто берёшь 6й столбик и считываешь все его элементы в копилку (сумма будет соответсоввать сумме зарплат 18 работников за июнь, что и требуется).
Добавлено через 6 мин.
sum:=0;
for i:=1 to N do sum:= sum + ms[i,6];
в более подробной форме))
const
sum: longint = 0;
var
salary: array[1..18, 1..12] of longint;
i, j: integer;
begin
{заполняем элементы массива}
for i:= 1 to 18 do
for j:= 1 to 12 do readln(salary[i, j]);
{суммируем элементы в шестого столбца}
for i:= 1 to 18 do sum:= sum + salary[i, 6];
write(sum)
end.