program LAB5 (input,output);
const
n = 8;
m = 8;
var
mas: array[1..n,1..m] of integer;
i, j, max, max1: integer;
begin
randomize;
for i := 1 to n do
for j := 1 to m do
mas[i,j] := random(10) - 1;
writeln('Початкова матриця ', n, 'x', m, ' mas=');
for i := 1 to n do
begin
for j := 1 to m do
write(mas[i,j]:3, '|');
writeln;
end;
for i := 1 to n do
begin
max := mas[i,1];
max1 := 1;
for j := 2 to m do
begin
if mas[i,j] > max then
begin
max := mas[i,j];
max1 := j;
end;
end;
mas[i,i] := max;
mas[i,max1] := mas[i,i];
end;
writeln('Модифікована матриця ', n, 'x', m, ' mas=');
for i := 1 to n do
begin
for j := 1 to m do
write(mas[i,j]:3, '|');
writeln;
end;
end.
cHJvZ3JhbSBMQUI1IChpbnB1dCxvdXRwdXQpOwpjb25zdAogIG4gPSA4OwogIG0gPSA4Owp2YXIKICBtYXM6IGFycmF5WzEuLm4sMS4ubV0gb2YgaW50ZWdlcjsKICBpLCBqLCBtYXgsIG1heDE6IGludGVnZXI7CmJlZ2luCiAgcmFuZG9taXplOwoKICAKICBmb3IgaSA6PSAxIHRvIG4gZG8KICAgIGZvciBqIDo9IDEgdG8gbSBkbwogICAgICBtYXNbaSxqXSA6PSByYW5kb20oMTApIC0gMTsKCiAgd3JpdGVsbign0J/QvtGH0LDRgtC60L7QstCwINC80LDRgtGA0LjRhtGPICcsIG4sICd4JywgbSwgJyBtYXM9Jyk7CgogIAogIGZvciBpIDo9IDEgdG8gbiBkbwogIGJlZ2luCiAgICBmb3IgaiA6PSAxIHRvIG0gZG8KICAgICAgd3JpdGUobWFzW2ksal06MywgJ3wnKTsKICAgIHdyaXRlbG47CiAgZW5kOwoKICAKICBmb3IgaSA6PSAxIHRvIG4gZG8KICBiZWdpbgogICAgbWF4IDo9IG1hc1tpLDFdOwogICAgbWF4MSA6PSAxOwogICAgCiAgICBmb3IgaiA6PSAyIHRvIG0gZG8KICAgIGJlZ2luCiAgICAgIGlmIG1hc1tpLGpdID4gbWF4IHRoZW4KICAgICAgYmVnaW4KICAgICAgICBtYXggOj0gbWFzW2ksal07CiAgICAgICAgbWF4MSA6PSBqOwogICAgICBlbmQ7CiAgICBlbmQ7CiAgICAKICAgIG1hc1tpLGldIDo9IG1heDsgCiAgICBtYXNbaSxtYXgxXSA6PSBtYXNbaSxpXTsgCiAgZW5kOwoKICB3cml0ZWxuKCfQnNC+0LTQuNGE0ZbQutC+0LLQsNC90LAg0LzQsNGC0YDQuNGG0Y8gJywgbiwgJ3gnLCBtLCAnIG1hcz0nKTsKCiAgCiAgZm9yIGkgOj0gMSB0byBuIGRvCiAgYmVnaW4KICAgIGZvciBqIDo9IDEgdG8gbSBkbwogICAgICB3cml0ZShtYXNbaSxqXTozLCAnfCcpOwogICAgd3JpdGVsbjsKICBlbmQ7CmVuZC4K