Дано N целых неотрицательных чисел. Нужно найти - вопрос №10804997 от nastyabelgina1 17.10.2021 03:20

Question

Информатика: Дано N целых неотрицательных чисел. Нужно найти второй по величине элемент (то есть такой элемент, который станет наибольшим, если удалить один текущий максимальный элемент из множества).Входные данныеВ первой строке содержится единственное число N — количество чисел (1 ≤ N ≤ 100). Во второй строке заданы N целых чисел ai, разделенные пробелами (0 ≤ ai ≤ 1000).Выходные данныеВывести второй по величине элемент в данном множестве. Если в множестве только один элемент — нужно вывести -1.

nastyabelgina1 · Answer

НА ПАСКАЛЕ(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....