Напишите программу, которая находит в массиве максимальный повторяющийся элемент или выводит число -1, если ни один элемент не повторяется. входные данные первая строка содержит размер массива n . во второй строке через пробел n чисел – элементы массива. гарантируется, что 0 < n ≤ 10000 . выходные данные программа должна вывести максимальный повторяющийся элемент в массиве или число -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.

2^i = 32, i = 5 бит приходится на 1 символ

2^i = 64, i = 6 бит приходится на 1 символ

т.к. количество символов в тексте одинаковое, то 6 : 5 = 1,2

информационный объем второго текста в 1,2 больше, чем у первого текста.

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.