Pascal. Двумерный массив.

[Fonthreat]

Здравствуйте. Прощу помощи в решении следующей задачи:

Дана матрица вещественных чисел размером N на M. Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера.

В программировании я плохо разбираюсь. Могу лишь заполнить массив, не знаю, как быть дальше:

const nn=8;mm=8;
Var
a: Array[1..nn, 1..mm] Of real;
i,j,n,m: integer;
Begin
Write('Kol-vo strok = '); Readln(n);
Write('Kol-vo stolbcov = '); Readln(m);
For i:=1 To n Do
For j:=1 To m Do
Begin

Интересует, что следует после "begin"...

[Grag]

Сообщение от Fonthreat

Здравствуйте. Прощу помощи в решении следующей задачи:

Дана матрица вещественных чисел размером N на M. Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера.

В программировании я плохо разбираюсь. Могу лишь заполнить массив, не знаю, как быть дальше:

const nn=8;mm=8;
Var
a: Array[1..nn, 1..mm] Of real;
i,j,n,m: integer;
Begin
Write('Kol-vo strok = '); Readln(n);
Write('Kol-vo stolbcov = '); Readln(m);
For i:=1 To n Do
For j:=1 To m Do
Begin

Интересует, что следует после "begin"...

У тебя количество строк и столбцов твоей матрицы уже определены в разделе Const... , а сама матрица описана в разделе Var...

После того, как заполнишь матрицу (а это ты делать умеешь, сам сказал)
организуй цикл по столбцам

  for i:=1 to mm do
    if not Odd(i) then
      begin
        S:=0;
        for i:=1 to nn do
          S:=S+a[i,j] {S - это сумма элементов столбца}
     end