Найти максимальный и минимальный элемент массива, поменять местами строки в которых находится максимальный и минимальный элементы.если максимальный и минимальный элементы находятся в одной строке,то поменять местами столбцы в которых находятся максимальный и минимальный элементы.массив заполняется рандомно от -100 до 100

ответ:

const nmax=100;

var a: array[1..nmax] of integer;

    n,i,imn,imx,x: integer;

begin

readln (n);

for i: =1 to n do read(a[i]); readln;

imn: =1;

imx: =1;

for i: =1 to n do

if a[i]

else if a[i]> a[imx] then imx: =i;

x: =a[imn]; a[imn]: =a[imx]; a[imx]: =x;

for i: =1 to n do write (a[i], ' ');  

writeln;

readln;

end.

объяснение: