Напишите программу, которая находит в массиве максимальный повторяющийся элемент или выводит число - 1, если ни один элемент не повторяется.

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

Первая строка содержит размер массива N. Во второй строке через пробел задаются N чисел - элементы массива. Гарантируется, что 0 < N ≤ 10000.

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

Программа должна вывести максимальный повторяющийся элемент в массиве или число - 1, если ни один элемент не повторяется.

Question

Информатика

Федюля

14 сентября, 10:58

Напишите программу, которая находит в массиве максимальный повторяющийся элемент или выводит число - 1, если ни один элемент не повторяется.

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

Первая строка содержит размер массива N. Во второй строке через пробел задаются N чисел - элементы массива. Гарантируется, что 0 < N ≤ 10000.

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

Программа должна вывести максимальный повторяющийся элемент в массиве или число - 1, если ни один элемент не повторяется.

+1

Ответы (1)

Знаете ответ?

Лора · Answer 1

Var

a:array [1 ... 10000] of integer;

i, n, a_max, c;

begin

read (n) ;

a_max:=0;

c:=0;

for i:=1 to n do

begin

a[i] : = random (100) ; / / автозаполнение массива

print (a[i]) ;

if a[i]>a_max then a_max:=a[i]; / / поиск максимального элемента

end;

writeln;

for i:=1 to n do

if a[i]=a_max then inc (c) ; / / поиск повторяющихся элементов

if c>=2 then write (a_max)

else write (-1) ;

end.