Дан массив B (n*m). Элементы массива ввести в программе. Поменять местами максимальный и минимальный элемент. Паскаль двумерный массив пример присвоения элементов массива в программе : b: array[1 ... n, 1 ... m] of integer = ((5,4,8,4,5), (2,3,4,5,2), (5,4,3,4,5), (2,3,4,5,2), (2,3,4,5,2));

program zz1;

const n = 5;

m = 5; / / задаем количество элементов в массиве

b: array[1 ... n, 1 ... m] of integer = ((5,4,80,4,5), (2,3,4,5,2), (5,4,3,4,5), (2,3,4,5,2), (2,0,4,5,2));

var i, j, s, i1, i2, j1, j2, max, min:integer; / / задаем переменные целого типа

begin

for i:=1 to n do / / выводим исходный массив на экран

begin

for j:=1 to m do

write (b[i, j]:4);

writeln;

end;

writeln;

max:=0; min:=100000;

for i:=1 to n do

for j:=1 to m do

begin

if b[i, j] > max then begin max:=b[i, j]; i1:=i; j1:=j; end;

if b[i, j] < min then begin min:=b[i, j]; i2:=i; j2:=j; end;

end;

s:=b[i1, j1]; b[i1, j1]:=b[i2, j2]; b[i2, j2]:=s;

for i:=1 to n do / / выводим полученный массив на экран

begin

for j:=1 to m do

write (b[i, j]:4);

writeln;

end;

end.