// 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
1) Алфавит, синтаксис и т. п. заданы выбранным языком. Начинается этот процесс с постановки задачи, составления алгоритма и т. п. 2) Интерпретатором здесь выступает процессор, а он является транслятором. 3) Он всегда является транслятором.
26(букв)+10(цифр)=36, т.е чуть больше 5 бит (<span>
5,169925)</span>≈6 бит, 2^6=64 символа может быть в алфавите, можно добавить 64-36=28 символов<span><span>