Нет не решим. На вопрос решим ли мы можно ответить да или нет. Мы помогли тебе?)
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrInteger(ReadInteger('n='));
var max := a.Max;
var i := a.IndexesOf(t -> t = max).ToArray;
Print('Максимум, равный', max, 'у элемента(-ов) номер');
i.Select(t -> t + 1).Println(', ')
end.
<h2>Пример</h2><h3>n= 15</h3><h3>-13 16 6 -12 -14 4 -12 -12 12 6 -10 2 16 -7 8</h3><h3>Максимум, равный 16 у элемента(-ов) номер 2, 13</h3>
На паскале должно выглядеть так:
Начало программы, ввод данных.
<...>
if (y>=x*x) and (y<=5) and ((y>=x+5) or (x>=0)) then write('принадлежит') else write('не принадлежит');
end.
256 = 2^8
3*96 * 4*96 * 8 = 884736 бит
884736 бит / 8 = 110592 байт / 1024 = 108 Кбайт