Сумма нечетных чисел

[koshak98]

Сделать с использованием массива. Дано 4 столбца и 5 строк,найти сумму нечетных чисел столбца у которого второй элемент (число в столбце) больше чем первый. Заранее спасибо.

[newerow1989]

var a:array[1..5,1..4] of integer;
    sum:array[1..4] of integer;
    i,j:integer;
    d:boolean;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 4 do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   d:=false;
   For j:=1 to 4 do
   begin
      sum[j]:=0;
      If a[1,j]>a[2,j] then
         Continue;
      For i:=1 to 5 do
         If a[i,j] mod 2=1 then
            sum[j]:=sum[j]+a[i,j];
   end;
   For j:=1 to 4 do
      Write(sum[j]:2,'  ');
   Writeln;
   Readln;
end.

[koshak98]

большое спасибо) а без бутлен никак нельзя? а то меня спалят) ми еще такого не проходили) если не трудно)

[koshak98]

все уже не нужно) я переделал