Дан целочисленный массив X(N,M).среди элементов нечетных столбцов массива найти количество четных чисел.

[darwin1]

Дан целочисленный массив X(N,M).среди элементов нечетных столбцов массива найти количество четных чисел.

[Stilet]

var c:integer; x:array[1..n,1..m] of integer;
begin
c:=0;
for i:=1 to n do begin
 for j:=1 to m do begin
  readln(x[i,j]);
  if ((j mod 2)=0)and((x[i,j] mod 2)=0) then inc(c);
 end;
end;
end.

Надеюсь обьявить константы n и m и сделать вывод c сам сможешь?