<u>Ответ: цикл с заданным числом повторений (вид for i:=i1 to i2 do )</u>
// PascalABC.Net 3.0, сборка 1066
begin
var n:=ReadInteger('Количество элементов массива: ');
var a:=ArrRandom(n,-10,10);
Writeln('Исходный массив: ',a);
Writeln('Максимумов: ',a.Where(x->x=a.max).Count)
end.
<em><u>Тестовое решение:</u></em>
Количество элементов массива: 20
Исходный массив: [5,-4,-9,-5,-10,10,10,-9,1,-8,0,-6,0,6,-3,-10,-2,2,-9,10]
Максимумов: 3
478 * 478 = 228484 пикселей
4 Кбайт = 4096 байт = 32768 бит
228484 / 32768 = 7 бит на пиксель
7² = 49
Ответ 49 цветов