нужно срочно, к 3 уроку. заранее спасибо) дан двумерный массив размером 5*6, заполненный целыми числами. сформировать одномерный массив, каждый элемент которого равен произведению четных положительных элементов соответствующего столбца.

  • program mass;

    uses
      crt;

    var
      mas: array [1..5, 1..6] of integer;
      mas_od: array[1..6] of integer;
      i, j: integer;

    begin
      randomize;
      for i := 1 to 5 do
        for j := 1 to 6 do
          mas[i, j] := random(10)-5;
     
      for i := 1 to 5 do
      begin
        for j := 1 to 6 do
          write(mas[i, j]:4);
        writeln;
      end;
      writeln('----------------------------');
       for i := 1 to 5 do
      begin
        mas_od[i] := 1;
        for j := 1 to 6 do
        begin
          if((mas [i, j] mod 2 = 0) and (mas[i, j] > 0)) then
            mas_od[i] := mas_od[i] * mas[i, j];
        end;
      end;
    for i:=1 to 6 do  write(mas_od[i]:4);
    writeln;
    end.