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

• #2079 MIFtIli aktív tag

  Új Válasz 2007-11-18 20:02:13 #2079

  Ú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

  

  MIFtIli

  aktív tag

  heló!
  egy egszerű tömbrendezés de vmiért nem működik. többször írja ki a számot mint kéne.

  program tombrendezes;
  uses crt;
  var
  i,y,j,n : integer;
  x:array[1..10] of integer;
  begin
  n:=10;
  clrscr;
  randomize;
  begin
  for i:=1 to n do
  x[i]:=random(10)+1;
  end;

  for i:=1 to n-1 do
  begin
  for j:=i+1 to n do
  if (x[i]>x[j]) then
  begin
  y:=x[i];
  x[i]:=x[j];
  x[j]:=y;
  write(x[j],',');
  end;
  write(x[i],',');
  end;
  readkey;
  end.

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