Матрица

[ScareCroW12]

Из элементов столбца с номером "к", массива А (mxn), вычесть минимальный элемент этого столбца.

Заранее спасибо!)

[Lapo4ka]

program abc;
type mass =array[1..100, 1..100] of integer;
var
a:mass;
i, j, n, m, k:byte;
min:integer;

begin
writeln('vvedite razmernost matricu: ');
write('m = ');
readln(m);
write('n = ');
readln(n);
writeln('vvedite matricu');
for i:=1 to m do
for j:=1 to n do
begin
write('a[', i, ']', '[', j,'] = ');
readln(a[i,j]);
end;
write('vvedite nomer stolbca k = ');
readln(k);
min:=a[1,k];
for i:=2 to m do
if (a[i,k]<min) then min:=a[i,k];
for i:=1 to m do
a[i,k]:=a[i,k]-min;
for i:=1 to m do
begin
for j:=1 to n-1 do
begin
write(a[i,j]);
write('       ');
end;
writeln( a[i,n]);
end;

end.