Question

Дано N целых неотрицательных чисел. Нужно найти второй по величине элемент (то есть такой элемент, который станет наибольшим, если удалить один текущий максимальный элемент из множества).

Входные данные


В первой строке содержится единственное число N — количество чисел (1 ≤ N ≤ 100). Во второй строке заданы N целых чисел ai, разделенные пробелами (0 ≤ ai ≤ 1000).

Выходные данные


Вывести второй по величине элемент в данном множестве. Если в множестве только один элемент — нужно вывести -1.

Answer 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.