|
program ordinamento;
var dati:array[1..7] of integer;
i,k,c,n:integer;
procedure carica;
begin
dati[1]:=2;
dati[2]:=1043;
dati[3]:=1045;
dati[4]:=90;
dati[5]:=1045;
dati[6]:=0;
dati[7]:=78;
end;
begin
carica;
n:=7;
repeat
c:=c+1;
for i:=1 to (n-1) do
begin
if dati[i]<dati[i+1]
then
begin
k:=dati[i];
dati[i]:=dati[i+1];
dati[i+1]:=k;
end;
end;
until c=(n-1);
i:=0;
for i:=1 to n do
begin
writeln(dati[i]);
end;
readln;
end.
|
|