OFF TOPIC 24 - PROHARDVER! Hozzászólások


Const
 max = 10;

Var
 mtx: Array[1..max,1..max] of Integer;
   i,j:Integer;
begin
Randomize;
For i:=1 to max do
 For j:=1 to max do
  mtx[i,j]:=Random(90)+10;

For i:=1 to max do
 Begin
 For j:=1 to max do
  Write(mtx[i,j],' ');
  Writeln;
 End;
Writeln(#10,#13);
For i:=1 to max do
 Begin
 For j:=max downto 1 do
  Write(mtx[i,j],' ');
  Writeln;
 End;


 Readln;
end.