cp:=1; max:=a[1]; k:=2; for i:=2 to N do begin sucet:=0; for j:=1 to i do begin sucet:=sucet+a[k]; k:=k+1; end; if max < sucet/i then begin max:=sucet/i; cp:=i; end; end; writeln(N+1-cp);
var skoky:array[1..N] of integer; vzd,i,x,naj:integer; begin // prečítanie do poľa s vzd:=0; for i:=1 to N do inc(vzd,skoky[i]); writeln('skončí vo vzdialenosti ',abs(vzd)); naj:=vzd; x:=0; for i:=1 to N do if abs(vzd-2*skoky[i]) < naj then begin x:=i; naj:=abs(vzd-2*skoky[i]); end; if x=0 then writeln('nie je také') else writeln('treba otočiť ',skoky[x],' aby bola vzdialenosť ',naj); end;