Дано N целых неотрицательных чисел. Нужно найти второй по величине элемент (то есть такой элемент, который станет наибольшим, если удалить один текущий максимальный элемент из множества).
Входные данные
В первой строке содержится единственное число N — количество чисел (1 ≤ N ≤ 100). Во второй строке заданы N целых чисел ai, разделенные пробелами (0 ≤ ai ≤ 1000).
Выходные данные
Вывести второй по величине элемент в данном множестве. Если в множестве только один элемент — нужно вывести -1.
НА ПАСКАЛЕ
(rextestercom/EUBAMC2172)
program pas_znanija_34592817;
var
n, ai, i, max1, max2:integer;
begin
max1:=0;
max2:=0;
read(n);
for i:=1 to n do begin
read(ai);
if ai>=max1 then begin
max2:=max1;
max1:=ai;
end;
if (ai>max2) and (ai<max1) then max2:=ai;
end;
if n=1 then max2:=-1;
write(max2);
end.