OFF TOPIC 24 - Mobilarena Hozzászólások

Hirdetés

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Aktív témák

#3252

Divi aktív tag

2005-10-06 15:45:54 #3252

Divi

aktív tag


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.

[Szerkesztve]

Aktív témák

Aktív témák

Hirdetés

Új fizetett hirdetések

Üzleti előfizetők hirdetései

Állásajánlatok

Laptop Szervizes

Cég: PCMENTOR SZERVIZ KFT.

Város: Budapest

Részletek

Számítástechnikai értékesítő

Cég: Laptopműhely Bt.

Város: Budapest

Részletek