uses
Crt;
const
N = 4;
M = 4;
var
a:array [1..N, 1..M] of integer;
i,j,imin,jmin,sumR,sumC: integer;
begin
ClrScr;
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;
sumC := 0;
for i := 1 to N do
Inc(sumC, a[i,jmin]);
sumR := 0;
for j := 1 to M do
Inc(sumR, a[imin,j]);
WriteLn('Минимум матрицы - a[',imin,',',jmin,'] = ',a[imin,jmin]);
WriteLn('Сумма строки: ',sumR,' Сумма столбца: ',sumC);
ReadLn
end.