var a:array [1..30,1..30] of integer; i,m,j:integer; begin randomize; for i:=1 to 30 do for j:=1 to 30 do a[i,j]:=random(8); for i:=1 to 30 do for j:=1 to 30 do begin write (a[i,j]:2); if j mod 30 = 0 then writeln; end; writeln('-----------------------------------------------'); for i:=1 to 30 do for j:=1 to 30 do begin if (a[i,j] mod 2 <> 0) then write(a[i,j]:3); end; end. Если я конечно условия правильно понял...