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

• #1179 norbiphu őstag Tottu #1177

  Új Válasz 2006-05-15 17:44:34 #1179

  Ú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

  

  norbiphu

  őstag

  válasz Tottu #1177 üzenetére

  Én így csináltam szerintem így a legegyszerűbb:
  
  assign(f,'C:\lottosz.dat');
  reset(f);
  for i:=1 to 51 do
  for j:=1 to 5 do
  begin
  read(f,lotto[i,j]);
  t[lotto[i,j]]:=1;
  end;
  close(f);
  
  t[lotto[i,j]:=1-re nincs szükség a beolvasáshoz csak ennek segítségével könnyen vizsgálható mely számokat nem húzták ki (1-est kihúzták, 0-t nem)
  
  [Szerkesztve]

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