Сформировать двумерную матрицу размером NxN в диап[-10;10] найти макс и мин элемент массива ,указать какое кол-во раз они встреч. в массиве?

Паскаль.

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.