Cod sursa(job #62532)
Utilizator | Data | 22 mai 2007 22:51:39 | |
---|---|---|---|
Problema | Subsir 2 | Scor | 52 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 1.01 kb |
var f1,f2:text;
n,i,ind,poz,min,j,nr:longint;
a,v:array[1..5000] of longint;
ok:boolean;
begin
assign(f1,'subsir2.in');
reset(f1);
assign(f2,'subsir2.out');
rewrite(f2);
read(f1,n);
for i:=1 to n do
read(f1,a[i]);
ok:=true;
ind:=1;
nr:=-maxlongint;
while ok=true do
begin
ok:=false;
min:=maxlongint;
for i:=ind to n do
if (a[i]<min)and(a[i]>nr) then
begin
min:=a[i];
poz:=i;
ok:=true;
end;
if ok=false then break;
ind:=poz+1;
inc(j);
v[j]:=poz;
nr:=a[poz];
end;
writeln(f2,j);
for i:=1 to j do write(f2,v[i],' ');
close(f1);
close(f2);
end.