Паскаль.
const N = 5;
var
a: array[1..N, 1..N] of integer;
i, j, max, min, cmax, cmin: integer;
begin
randomize;
//заполняем матрицу
for i:=1 to N do
for j:=1 to N do
a[i,j] := random(21)-10;
//находим минимум и максимум
max := a[1,1]; min := a[1,1];
for i:=1 to N do
for j:=1 to N do begin
if (a[i,j]>max) then
max := a[i,j];
if (a[i,j]<min) then
min := a[i,j];
end;
//находим количество минимумов и максимумов
cmin := 0; cmax := 0;
for i:=1 to N do
for j:=1 to N do begin
if (a[i,j]=max) then
inc(cmax);
if (a[i,j]=min) then
inc(cmin);
end;
//выводим результат
writeln('Максимум: ', max);
writeln('Минимум: ', min);
writeln('Кол-во максимальных: ', cmax);
writeln('Кол-во минимальных: ', cmin);
end.