Programalama > PASCAL

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

type
  stip=array[1..100] of integer;
var
  i:integer;
  s:stip;
  l:integer;
procedure quicksort(var a:stip; lo,hi:integer);
procedure sort(p,r:integer);
var
  i,j,x,y:integer;
begin
   i:=p;
   j:=r;
  x:=a[(p+r) div 2];
  repeat
    while a[i]<x do i:=i+1;
    while x<a[j] do j:=j-1;
    if i<=j then
    begin
      y:=a[i];
      a[i]:=a[j];
      a[j]:=y;
      i:=i+1;
      j:=j-1;
    end;
  until i>j;
  if p<j then sort(p,j);
  if i<r then sort(i,r);
end;
begin
  sort(lo,hi);
end;
begin

  for i:=1 to 10 do
  begin
   write(i,'.Sayiyi Giriniz.....= ');
    readln(s[i]);
  end;
  writeln;
  quicksort(s,1,10);
  writeln;
  for i:=1 to 10 do
  writeln(s[i]:8);
  readln;
end.