Пусть дана вещественная квадратная матрица порядка 10. В строках с отрицательным элементом на главной диагонали найти:
а) сумму элементов;
б) наиболmibq из элементов.
for j:=1 to 10 do if a[j,j]<0 then begin
s:=0;
x:=s;
for i:=2 to 10 do begin
s:=s+a[j,i];
if a[j,i]>x then x:=a[j,i]
end;
WriteLn('сумма ',s,', максимальный ',x)
end