Поменять местами max и min элементы заданного двумерного массива.Результат вывести на экран в виде массива — Pascal(Паскаль)

const n=5;
    m=5;
var     a:array[1..n,1..m]of integer;
     i,j,imax,jmax,imin,jmin,t:integer;
begin
randomize;
for i:=1 to n do
begin
       for j:=1 to m do
       begin
        a[i,j]:=random(21)-10;
        write(a[i,j]:4);
       end;
       writeln;
end;
imax:=1; jmax:=1;
imin:=1; jmin:=1;
for i:=1 to n do
for j:=2 to m do
begin
if a[i,j]>a[imax,jmax] then
begin
    imax:=i;
    jmax:=j;
end;
if a[i,j]<a[imin,jmin] then
begin
    imin:=i;
    jmin:=j;
end;
end;
writeln('Максимальный элемент: ',a[imax,jmax]);
writeln('Минимальный элемент: ',a[imin,jmin]);
t:=a[imax,jmax];
a[imax,jmax]:=a[imin,jmin];
a[imin,jmin]:=t;
for i:=1 to n do
begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
end;
end.

Leave a Comment

+ 34 = 38