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

• #1262 btotyi tag athew #1261

  Új Válasz 2006-07-31 19:19:01 #1262

  Ú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

  Privát üzenet küldése

  

  btotyi

  tag

  válasz athew #1261 üzenetére

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

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