Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program array35;
- var
- n, i, max:integer;
- arr: array of integer;
- first: boolean;
- begin
- readln(n);
- //заполняем массив
- arr := new integer[n+1];
- for i:=1 to n do
- begin
- readln(arr[i]);
- end;
- //заполнили
- first:=true;
- for i:=2 to n-1 do
- begin
- if (arr[i] < arr[i-1]) and (arr[i] < arr[i+1]) then //если локальный минимум
- begin
- if first = true then //если это наш первый локальный минимум
- begin
- first:=false;
- max:=arr[i];
- end
- else if (max<arr[i]) then //если уже не первый, то сравниваем со значением максимального локального минимума из локальных минимумов
- begin
- max:=arr[i];
- end;
- end;
- end;
- writeln(max); //ответ
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement