Найти сумму нечетных элементов массива четных столбцов

[Topse]

Дан двумерный массив размером в 5 строк и 5 столбцов,заданных с помощью генератора случайных чисел в интервале от 0 до 10.
Найти сумму нечетных элементов массива четных столбцов.

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

Const  N=5; M=5; 
Var  a :array [1..N, 1..M] Of integer;  
i,j,s,sum : integer;
Begin
  sum:=0;
  randomize;
  For i:=1 to N do
  For j:=1 to M do  
  A[i,j]:= random(11);
		For i:=1 to N do
  	   	 begin
	        		For j:=1 to M do 
	        		Write(a[i,j]:3);
	   	  Writeln;
	  	  end;
	  	  begin
  if a[i,j] mod 2<>0 then sum:= sum+a[i,j];
  end;
For i:=1 to N do
For j:=1 to M do 
s:=s+a[i,j];
Writeln;
Write('Сумма=',s);
End.

[Alex11223]

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

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

Ну так пишите свою программу, а не копипастите чужую.

[Aleksandr H.]

вот тут он пытался

begin
  if a[i,j] mod 2<>0 then sum:= sum+a[i,j];
  end;

но надо

begin
  if (a[i,j] mod 2<>0) and (j mod 2 = 0) then sum:= sum+a[i,j];
  end;

и в цикл осталось запихнуть

upd.
или по другому

For i:=1 to N do
begin
    j:=2;
    while j<=M do
    begin
        if a[i,j] mod 2 <> 0 then sum := sum+a[i,j];
        j:=j+2;
    end;
end;
Writeln;
Write('Сумма=',sum);