Advertisement
Guest User

Untitled

a guest
Feb 23rd, 2019
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.79 KB | None | 0 0
  1. program array35;
  2. var
  3. n, i, max:integer;
  4. arr: array of integer;
  5. first: boolean;
  6. begin
  7. readln(n);
  8. //заполняем массив
  9. arr := new integer[n+1];
  10. for i:=1 to n do
  11. begin
  12. readln(arr[i]);
  13. end;
  14. //заполнили
  15. first:=true;
  16. for i:=2 to n-1 do
  17. begin
  18. if (arr[i] < arr[i-1]) and (arr[i] < arr[i+1]) then //если локальный минимум
  19. begin
  20. if first = true then //если это наш первый локальный минимум
  21. begin
  22. first:=false;
  23. max:=arr[i];
  24. end
  25. else if (max<arr[i]) then //если уже не первый, то сравниваем со значением максимального локального минимума из локальных минимумов
  26. begin
  27. max:=arr[i];
  28. end;
  29. end;
  30. end;
  31. writeln(max); //ответ
  32. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement