Нужна ваша помощьСформировать в паскале двумерный массив приоизвольного размера (размер массива вводить с клавиатуры - количество строк и количество столбцов) состоящий из целочисленных элементов2. Заполнить массив с помощью генератора случайных чисел в диапазоне [-20;20]3. Вывести на экран в виде матрицы4. Найти мин и макс и поменять местами5. Вывести на экран в виде матрицы В паскале

var

A: array [1. . 100, 1. . 100] of integer;

i, j, n, y, mini, minj, maxi, maxj, temp: integer;

const

format = 4;

begin

Randomize;

writeln('Введите колличество строк и столбцов через пробел (пример: 3 4)');

read(n, y);

writeln('Исходный массив');

for i := 1 to n do

begin

for j := 1 to y do

begin

A[i, j] := random(40) - 20;

write(A[i, j] : format);

end;

writeln;

end;

mini := 1;

minj := 1;

maxi := 1;

maxj := 1;

for i := 1 to n do

for j := 1 to y do

begin

if A[i, j] < A[mini, minj] then

begin

mini := i;

minj := j;

end ;

if A[i, j] > A[maxi, maxj] then

begin

maxi := i;

maxj := j;

end ;

end;

writeln;

WriteLn('Минимальный = ', A[mini, minj], ' в ', mini, ' строке ', minj, ' колоне. ');

WriteLn('Максимальный = ', A[maxi, maxj], ' в ', maxi, ' строке ', maxj, ' колоне. ');

temp := A[maxi, maxj];

A[maxi, maxj] := A[mini, minj];

A[mini, minj] := temp;

writeln;

writeln('Преобразованный массив');

for i := 1 to n do

begin

for j := 1 to y do

write(A[i, j] : format);

writeln;

end;

readln;

end.