Матрицы паскаль

[Анжелика1988]

Из всех строк матрицы, кроме последней, поэлементно вычесть последнюю строку.

Найти сумму максимальных элементов строк матрицы.

[danekne]

1) for i:= 1 to n-1 do
for j:= 1 to m do
a[i,j]:=a[i,j]-a[n,j];

Для матрицы n*m

[danekne]

2) for i:=1 to n do
begin
max:=a[i,1];
for j:=1 to n do
if a[i,j]>max then max:=a[i,j];
s:=s+max;
end;

Матрица n*m, сумма максимальных элементов в итоге - в переменной s