fork download
  1. program ask(input, output);
  2.  
  3. const max=1000000;
  4.  
  5. var a: array [1..max] of integer;
  6. i,n,j, sum: integer;
  7. flag:boolean;
  8.  
  9. begin
  10. readln(n);
  11. for i:=1 to n do read(a[i]);
  12.  
  13. flag:=false;
  14. j:=1;
  15. while not flag do
  16. begin
  17. i:=j;
  18. sum:=a[j];
  19. if i<n then i:=i+1
  20. else i:=1;
  21. while (sum>=0) and (i<>j) do
  22. begin
  23. sum:=sum+a[i];
  24. if i<n then i:=i+1
  25. else i:=1;
  26. end;
  27. if sum>=0 then flag:=true
  28. else if j<n then j:=j+1 else begin j:=0; flag:=true; end;
  29. end;
  30. writeln(j);
  31. end.
Runtime error #stdin #stdout 0.01s 8020KB
stdin
Standard input is empty
stdout
Standard output is empty