Cod sursa(job #547992)
Utilizator | Data | 6 martie 2011 21:56:23 | |
---|---|---|---|
Problema | Sortare prin comparare | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.44 kb |
var i,n,j,k:integer;
a,c:array [1..100]of integer;
begin
assign(input,'algsort.in');reset(input);
assign(output,'algsort.out');rewrite(output);
readln(n);
for i:=1 to n do
read(a[i]);
for i :=1 to n do begin
for k:=2 to n do
if a[i]<=a[k] then c[i]:=a[i];
end;
for j:=1 to n do write(a[i],' ');
close(input);close(output);
readln;
end.