Паскаль

[qwerty321456]

Для произвольной матрицы строку с наибольшей суммой уменьшить на сумму диагональных элементов.
а) использовать ручной ввод размерности массива.
б) применить свой ввод компонент массива.
Сколько пытался не вышло...Мне хотя бы написать ее, а подпун. уже сам.

[Вадим Мошев]

{сумма диагональных элементов матрицы}
for i:=1 to N do
	s:=s + a[i, i];
	
{поиск строки с макс суммой}
	numb:=1;	
	for i:=1 to N do
		maxSum:=maxSum + a[1, i];
		
	for i:=2 to n do
		begin
			for j:=1 to n do
				s1:=s1 + a[i, j];
		
			if s1 > maxSum then
				begin
					maxSum:=s1;
					numb:=i;
				end;
		end;		
		
{меняем такую строку на сумму диаг элементов}
	for i:=1 to n do
		a[numb, i]:=s;