uses
Crt;
const
N = 5;
M = 5;
var
a: array [1..N + 1, 1..M + 1] of integer;
i,j,imin,jmin: integer;
begin
ClrScr;
Randomize;
imin := 1;
jmin := 1;
WriteLn('-: ');
for i := 1 to N do
begin
for j := 1 to M do
begin
a[i, j] := Random(8) - 4;
if a[i, j] < a[imin, jmin] then
begin
imin := i;
jmin := j;
end;
Write(a[i, j]:2, ' ');
end;
WriteLn;
end;
WriteLn('a[', imin, ',', jmin, '] = ', a[imin, jmin], ' - ');
for i := N downto imin do
for j := 1 to M do
a[i + 1, j] := a[i, j];
for j := 1 to M do
a[imin, j] := 0;
for j := M downto jmin do
for i := 1 to N + 1 do
a[i, j + 1] := a[i, j];
for i := 1 to N + 1 do
a[i, jmin] := 0;
WriteLn('-à: ');
for i := 1 to N + 1 do
begin
for j := 1 to M + 1 do
Write(a[i, j]:2, ' ');
WriteLn;
end;
ReadLn;
end.