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

• #4961 timo92 csendes tag

  Új Válasz 2011-02-08 16:49:40 #4961

  Ú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

  

  timo92

  csendes tag

  program lottosz;
  uses crt;
  var
  a,x,i,j,w : integer;
  szam : array[1..5] of integer;
  begin
  clrscr;
  writeln('Kerem az 52. heti nyeroszamokat: ');
  for x:=1 to 5 do
  begin
  read(szam[j]);
  write(' ');
  end;
  for i:=1 to 5 do
  for j:=1 to i+1 do
  if(szam[j] > szam[j+1] )then
  begin
  w := szam[j];
  szam[j] := szam[j+1];
  szam[j+1] := w;
  end;
  for i:=1 to 5 do
  begin
  write(szam[j]);
  i:=i+1;
  j:=j+1;
  end;
  end.

  a lottósnál eddig jutottam.... a másik az semmi...

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