program P1;
var pervaiaStroka, posledniiStolbec: array [1..100] of integer;
Matrica: array [1..100, 1..100] of integer;
kolvoStolbcov, kolvoStrok, i, j, S1, S2: integer;
function find_S(var A: array of integer): integer;
var max_min: integer;
begin
max_min := -100;
S := 0;
for i := low(A) to high(A) do//low - нижний индекс массива А, high - верхний индекс
if (A[i] > max_min) and (A[i] < 0) then
max_min := A[i];
for i := low(A) to high(A) do
if A[i] < max_min then S := S + A[i];
find_S := S;
end;
begin
wtite('Vvedite kol-vo strok: ');
readln(kolvoStrok);
wtite('Vvedite kol-vo stolbcov: ');
readln(kolvoStolbcov);
for i := 1 to kolvoStrok do
for j := 1 to kolvoStolbcov do
begin
randomize;
Matrica[i, j] := random(200) - 100;// -100 <= Matrica[i, j] <= 100
end;
for i := 1 to kolvoStolbcov do
pervaiaStroka[i] := na4alniiMassiv[1, i];
S1 := find_S(pervaiaStroka);
for i := 1 to kolvoStrok do
posledniiStolbec[i] := na4alniiMassiv[i, kolvoStolbcov];
S2 := find_S(posledniiStolbec);
writeln('S для первой строки = ', S1);
writeln('S для последнего столбца = ', S2);
end.