Mai intai trebuie sa te autentifici.
Cod sursa(job #282189)
| Utilizator | Data | 17 martie 2009 02:14:44 | |
|---|---|---|---|
| Problema | Sortare prin comparare | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.54 kb |
program sort;
var v:array[1..100] of int64;
aux,i,j,n:int64;
begin
assign(input,'algsort.in');
reset(input);
read(input,n);
for i:=1 to n do
read(input,v[i]);
close(input);
for i:=2 to n do
if v[i]<v[i-1] then begin
j:=i;
while (v[j]<v[j-1])and(j>1) do begin
aux:=v[j];
v[j]:=v[j-1];
v[j-1]:=aux;
dec(j);
end;
end;
assign(output,'algsort.out');
rewrite(output);
for i:=1 to n do
write(output,v[i],' ');
close(output);
end.