Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- N = 6;
- var
- a:array[0..N-1] of integer;
- i,j,k:integer;
- begin
- for i:=0 to N-1 do readln(a[i]);
- k:=-1;
- for i:=2 to N-2 do
- begin
- if(a[i] < a[i-1]) and (a[i] < a[i+1]) and
- ((a[i] < k) or (k = -1))then
- begin
- k := a[i];
- end;
- end;
- writeln(k);
- readkey;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement