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.
cHJvZ3JhbSBMQUI1IChpbnB1dCxvdXRwdXQpOyAKY29uc3QgCiAgbiA9IDg7IAogIG0gPSA4OyAKdmFyIAogIG1hczogYXJyYXlbMS4ubiwxLi5tXSBvZiBpbnRlZ2VyOyAKICBpLCBqLCBtYXgsIG1heDE6IGludGVnZXI7IApiZWdpbiAKICByYW5kb21pemU7IAogIAogIAogIGZvciBpIDo9IDEgdG8gbiBkbyAKICAgIGZvciBqIDo9IDEgdG8gbSBkbyAKICAgICAgbWFzW2ksal0gOj0gcmFuZG9tKDEwKSAtIDE7IAogIAogIHdyaXRlbG4oJ9Cf0L7Rh9Cw0YLQutC+0LLQsCDQvNCw0YLRgNC40YbRjyAnLCBuLCAneCcsIG0sICcgbWFzPScpOyAKICAKICAKICBmb3IgaSA6PSAxIHRvIG4gZG8gCiAgYmVnaW4gCiAgICBmb3IgaiA6PSAxIHRvIG0gZG8gCiAgICAgIHdyaXRlKG1hc1tpLGpdOjMsICd8Jyk7IAogICAgd3JpdGVsbjsgCiAgZW5kOyAKICAKICAKICBmb3IgaSA6PSAxIHRvIG4gZG8gCiAgYmVnaW4gCiAgICBtYXggOj0gbWFzW2ksMV07IAogICAgbWF4MSA6PSAxOyAKICAKICAgIGZvciBqIDo9IDIgdG8gbSBkbyAKICAgIGJlZ2luIAogICAgICBpZiBtYXNbaSxqXSA+IG1heCB0aGVuIAogICAgICBiZWdpbiAKICAgICAgICBtYXggOj0gbWFzW2ksal07IAogICAgICAgIG1heDEgOj0gajsgCiAgICAgIGVuZDsgCiAgICBlbmQ7IAogIAogICAgbWFzW2ksaV0gOj0gbWF4OyAgCiAgICBtYXNbaSxtYXgxXSA6PSBtYXNbaSxpXTsgIAogIGVuZDsgCiAgCiAgd3JpdGVsbign0JzQvtC00LjRhNGW0LrQvtCy0LDQvdCwINC80LDRgtGA0LjRhtGPICcsIG4sICd4JywgbSwgJyBtYXM9Jyk7IAogIAogIAogIGZvciBpIDo9IDEgdG8gbiBkbyAKICBiZWdpbiAKICAgIGZvciBqIDo9IDEgdG8gbSBkbyAKICAgICAgd3JpdGUobWFzW2ksal06MywgJ3wnKTsgCiAgICB3cml0ZWxuOyAKICBlbmQ7IAplbmQuCg==