Нужно срочно, к 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.