$n=<>; @a=(0,<>=~/\d+/g); $s[1]=$a[1]; $h[1]=" 1"; for(2..$n){ $s[$_]=$s[$_-2]+$a[$_]; $h[$_]="$h[$_-2] $_"; if($s[$_]<$s[$_-1]){ $s[$_]=$s[$_-1]; $h[$_]=$h[$_-1]; } } $h[$n]=~s/ //; print$s[$n],$/; print$h[$n],$/;