. Дана действительная матрица размером n x m. Требуется преобразовать матрицу следующим образом: поэлемен

[Figushkin]

Дана действительная матрица размером n x m. Требуется преобразовать матрицу следующим образом: поэлементно вычесть последнюю строку из всех строк, кроме последней.

[ROMA2PVT]

var
mas:array[1..20,1..20] of integer;
i,j,n,m:integer;
begin
randomize;
write('Введите количество строк: ');
readln(n);
write('Введите количество стотлбцов: ');
readln(m);
writeln('Исходная матрица: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
mas[i,j]:=random(10)-2;
write(mas[i,j]:2,' ');
end;
writeln;
end;
writeln;
for i:=1 to n-1 do
for j:=1 to m do
begin
mas[i,j]:=mas[i,j]-mas[n,j];
end;
writeln;
writeln('Результирующая матрица: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(mas[i,j]:2,' ');
end;
writeln;
end;
readln;
end.