Cod sursa(job #595531)

Utilizator alex_inureanalex inurean alex_inurean Data 12 iunie 2011 22:43:10
Problema Schi Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.22 kb
Raporteaza aceasta sursa 
program info1;
var a:array[1..30000] of integer;
        n,i,j:integer;
begin
read(n);
for i:=1 to n do begin
read(a[i]);
for j:=1 to i-1 do if a[i]<=a[j] then inc(a[j]);
end;
for i:=1 to n do write(a[i],' ');
end.