Advertisement
Guest User

Untitled

a guest
Feb 23rd, 2019
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.34 KB | None | 0 0
  1. program array41;
  2. var
  3. n, i, max, maxid:integer;
  4. arr: array of integer;
  5. begin
  6. readln(n);
  7. arr := new integer[n+1];
  8. for i:=1 to n do
  9. begin
  10. readln(arr[i]);
  11. end;
  12. max :=arr[1];
  13. maxid := 2;
  14. for i:=2 to n do
  15. begin
  16. if (arr[i]+arr[i-1]) > max then
  17. begin
  18. max:=arr[i]+arr[i-1];
  19. maxid :=i;
  20. end;
  21. end;
  22. writeln(maxid-1, ' ',maxid);
  23. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement