Új hozzászólás Aktív témák

• #1263 VladimirR nagyúr btotyi #1262

  Új Válasz 2006-07-31 19:31:03 #1263

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  VladimirR

  nagyúr

  válasz btotyi #1262 üzenetére

  javitva:
  
  program Tomb;
  
  {$APPTYPE CONSOLE}
  
  uses
  SysUtils;
  
  Var Tmb : array[0..9] of integer ;
  i : integer ;
  
  begin
    Randomize;
    for i:=0 to 9 do
      Tmb[i] := Random(255);
    for i:=0 to 9 do
      WriteLn('Tömb ', i,'=',Tmb[i]);
  end.

Új hozzászólás Aktív témák