Const n=5;m=7; var a:array[1..n,1..m]of integer; i,j:integer; begin for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; writeln; for i:=1 to n do begin for j:=2 to m do if j mod 2=0 then write(a[i,j]:4); writeln; end; end.