Спасите девушка тонет!

[puma89]

Спасите ктонибудь пожалуста,уже не знаю сколько мучаюсь с лабой.
дана целочисленная прямоугольная матрица:определить1)количество отрицательных элементов в тех строках,которые содержат хотя бы один нулевой элемент2)номера строк и столбцов всех седловых точек матрицы
примечание материальная точка а имеет седловую точку Aij являющуюся минимальным элементом в первой строке и максимальным в jстолбце. h34r:
Желательно в Delphi

 

[Vadik(R)]

Ладно, щас решу... только из-за того, что ты девушка

Вот, первая часть решения:

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a : array [1..20,1..20] of integer;
i,j,n,m,kol : Integer;
fl : boolean;
begin
Write('n='); Read(n);
Write('m='); Read(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
read(a[i,j])
end;
for i:=1 to n do
begin
fl:=false;
for j:=1 to m do
if a[i,j]=0 then
begin
fl:=true;
break
end;
if fl then
begin
kol:=0;
for j:=1 to m do
if a[i,j]<0 then kol:=kol+1;
writeln('V ',i,'-oj stroke ',kol,' otricatelnih elementa.')
end
end;
readln(n)
end.

 

[Vadik(R)]

Вот вторая часть решения. Если что не так, извини, я так понял условия.

program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a : array [1..20,1..20] of integer;
i,j,k,n,m : Integer;
fl : boolean;
begin
Write('n='); Read(n);
Write('m='); Read(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
read(a[i,j])
end;
for i:=1 to n do
for j:=1 to m do
begin
fl:=true;
for k:=1 to m do
if a[1,k]<a[i,j] then
begin
fl:=false;
break
end;
if fl then
for k:=1 to n do
if a[k,j]>a[i,j] then
begin
fl:=false;
break
end;
if fl then write('Est sedlovaya tochka a v ',i,'-oj stroke i ',j,'-om stolbce');
end;
readln(n)
end.

 

[Vadik(R)]

Видимо, ты утанула, раз так долго не отвечаешь h34r:

 

[puma89]

СПАСИБО,СПАСИБО,СПАСИБО!!!! h34r: Ты меня безумно выручил!!

 

[GRLEX]

Для puma89: ты бы плюса шоли хоть Vadik®'у поставила
человек старался

 

[puma89]

А как плюс ставить?он не нажимается.я б хоть сто

 

[Alenko321]

а можно эту жэ программку только на си?? плиззззззз. оч надо!!