Pagini recente » Istoria paginii utilizator/crystyana | Borderou de evaluare (job #251668) | Cod sursa (job #444070) | Monitorul de evaluare | Cod sursa (job #547992)
Cod sursa(job #547992)
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.