PascalABC.NET
begin
write('Введите размерность массива через пробел: ');
var MN := ReadArrInteger(2);
var A:= MatrRandomInteger(MN[1],MN[0],0,20);
A.Println();
var max:=A.Cast&<integer>.Max();
writeln('Наибольший элемент: ',max);
writeln('Количество элементов, равных наибольшему элементу: ',
A.Cast&<integer>.Where(t -> t=max).Count());
end.
PascalABC.NET
begin
write('Введите размерность массива через пробел: ');
var MN := ReadArrInteger(2);
var A:= MatrRandomInteger(MN[1],MN[0],0,20);
A.Println();
var max:=A.Cast&<integer>.Max();
writeln('Наибольший элемент: ',max);
writeln('Количество элементов, равных наибольшему элементу: ',
A.Cast&<integer>.Where(t -> t=max).Count());
end.