Pascal ABC.NET

[BuTaJI]

помогите с решением задач для курсовика. завтра уже сдавать надо. я уже три дн над ними думаю.

1) В заданной матрице найти сумму элементов k-ого столбца.
2) Введите последавательность из N чисел. Найти сумму элементов, входящих в интервал [-2;2].

Задачи детские, но я учусь на первом курсе и не могу понять как их написать.

[Novenkaja]

Дана матрица действительных чисел размером 3x5. Вычислить сумму элементов матрицы.

PROGRAM EX_1;

CONST
   n=3;  {Количество строк}
   m=5;  {Количество столбцов}

TYPE
   mas=array[1..n,1..m] of real;

VAR
   b: mas;      {Массив}
   i: integer;  {Индекс строки}
   j: integer;  {Индекс столбца}
   s: real;     {Сумма}

BEGIN
{Ввод значений матрицы}
  Writeln('Введите значения элементов матрицы:');
  for i:=1 to n do
   for j:=1 to m do
    readln(b[i,j]);

{Вычисление суммы}
  s:=0;
  for i:=1 to n do
   for j:=1 to m do
    s:=s+b[i,j];
  writeln('Сумма = ',s);

END.

незнаю,но может пригодится,здесь в принципе пример,как вычислять сумму.