pascal / 1 лаба / 4

uses crt;
const n=4;
var a:array[1..n,1..n] of integer;
i,j,i1,j1,i2,j2,x:integer;
begin
clrscr;
randomize;
writeln('Матрица размером 4х4:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln
end;
i1:=1;
j1:=1;
for i:=1 to n div 2 do
for j:=1 to n div 2 do
if a[i,j]>a[i1,j1] then
begin
i1:=i;
j1:=j
end;
writeln('Максимальное значение в первом блоке=',a[i1,j1]);
i2:=n div 2+1;
j2:=1;
for i:=n div 2+1 to n do
for j:=1 to n div 2 do
if a[i,j]>a[i2,j2] then
begin
i2:=i;
j2:=j
end;
writeln('Максимальное значение в третьем блоке=',a[i2,j2]);
x:=a[i1,j1];
a[i1,j1]:=a[i2,j2];
a[i2,j2]:=x;
i1:=1;
j1:=n div 2+1;
for i:=1 to n div 2 do
for j:=n div 2+1 to n do
if a[i,j]<a[i1,j1] then
begin
i1:=i;
j1:=j
end;
writeln('Минимальное значение во втором блоке=',a[i1,j1]);
i2:=n div 2+1;
j2:=n div 2+1;
for i:=n div 2+1 to n do
for j:=n div 2+1 to n do
if a[i,j]<a[i2,j2] then
begin
i2:=i;
j2:=j
end;
writeln('Минимальное значение в четвертом блоке=',a[i2,j2]);
x:=a[i1,j1];
a[i1,j1]:=a[i2,j2];
a[i2,j2]:=x;
writeln('Замена элементов матрицы:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln;
end.