Question

В двумерном массиве произвольной размерности подсчитать количество элементов, равных наибольшему элементу в этом массиве. Вывести значение наибольшего элемента.

Answer 1

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.