const n = 6;
var
A: array[1..2*n, 1..2*n] of integer;
i, j, mi, mj, ms: integer;
begin
randomize;
for i:= 1 to 2*n do
for j:= 1 to 2*n do
A[i, j] := Random(10);
Write('':5);
for j:= 1 to 2*n do Write(j:3);
WriteLn;
for i:= 1 to 2*n do
begin
Write(i:3, ': ');
for j:= 1 to 2*n do Write(A[i, j]:3);
Writeln;
end;
writeln;
i:=1; j:=1;
ms := A[i, j] + A[i+1,j] + A[i, j+1] + A[i+1,j+1];
mi := i; mj := j;
for i:= 1 to 2*n-1 do
for j:= 1 to 2*n-1 do
if A[i, j] + A[i+1,j] + A[i, j+1] + A[i+1,j+1]<ms then
begin
ms := A[i, j] + A[i+1,j] + A[i, j+1] + A[i+1,j+1];
mi := i;
mj := j;
end;
WriteLn('Kv([',mi,', ', mj, ']-[',mi+1,', ', mj+1, ']) = ');
WriteLn(A[mi, mj], ' ', A[mi, mj+1]);
WriteLn(A[mi+1, mj], ' ', A[mi+1,mj+1]);
WriteLn('Min sum = ', ms:10);
end.
|
