помогите с решением:
Дана целочисленная прямоугольная матрица, определить:
а) номера строк и столбцов всех седловых точек (оформить в виде процедуры)
b) сумму элементов в тех строках, которые содержат хотябы 1 отрицательный элемент (оформить в виде функции)
желательно как-нибудь попроще
со второй частью я почти разобрался, скажите только как сделать чтоб программа выводила сумму всех строк, в которых есть отрицательные эл-ты, а не первой как здесь
program qwerty;
uses crt;
const n=5;
m=5;
type
mass = array [1..n,1..m] of real;
var
a: mass;
s: real;
i,j: integer;
function SumElemVStrokaxKotSoderOtricElem
(n,m: integer): real;
var
s1: real;
i,j: integer;
begin
s1:=0;
for i:=1 to n do begin
for j:=1 to m do begin
if a[i,j]<0 then
for i:=1 to n do
s1:=s1+a[i,j];
SumElemVStrokaxKotSoderOtricElem:=s1;
end; end; end;
begin
clrscr;
writeln ('vvedite chisla');
for i:=1 to n do begin
for j:=1 to m do
readln(a[i,j]);
end;
s:=SumElemVStrokaxKotSoderOtricElem(n,m);
writeln ('s=',s:2:2);
readln;
end.