Programalama > PASCAL

uses crt;
var
a,b:integer;
dizi:array[1..10] of integer;
procedure degis(x,y:integer);
var
 d:integer;
begin
d:=x;
x:=y;
y:=d;
end;
begin 
clrscr;
for a:=1 to 10 do
 begin
  write('dizinin ',a,'. elemanını giriniz?');
  realdn(dizi[a]);
 end;
clrscr;
 for a:=1 to 9 do
  for b:=a+1 to 10 do
   if dizi[a]<dizi[b] then degis(dizi[a],dizi[b]);
for a:=1 to 10 do
writeln(dizi[a]);
readln;
end.