Двумерный массив

[DAn9I]

Помогите решить не тяжелую задачу по Pascal, сам не могу, так как тему пропустил(
Задача:
Дан двумерный массив k*p. Найти количество строк, имеющих хотя бы один отрицательный элемент.

[Stilet]

Дан двумерный массив k*p.

КАнаПЭ говоришь...

 Count:=0;
 for i:=1 to k do for j:=1 to p do if Массив[k,p]<0 then begin inc(Count);break;end;

Идея уловима?

[DAn9I]

Сообщение от Stilet

КАнаПЭ говоришь...

 Count:=0;
 for i:=1 to k do for j:=1 to p do if Массив[k,p]<0 then begin inc(Count);break;end;

Идея уловима?

а если мне нужно найти количество столбцов имеющих отрицательный элемент, что нужно в коде изменить?

[s-andriano]

Значит, идея не уловлена.

Stilet, не знаю, может, у меня аллергия на break, но я бы использовал цикл repeat until.
Он именно для таких случаев и придуман.

[Poma][a]

if Массив[k,p]<0

Не.. Ведь Массив[i, j]

[DAn9I]

Сообщение от s-andriano

Значит, идея не уловлена.

Stilet, не знаю, может, у меня аллергия на break, но я бы использовал цикл repeat until.
Он именно для таких случаев и придуман.

в том то и дело что я хочу понять в чем суть.Программа то работает, а как я не очень понимаю)
Напиши свою версию программы пж-ста.

[Mad_Cat]

без бряка

count:=0;
for i:=1 to k do
begin
j:=1;
f:=false;
while (not f) and (j<=p) do
begin
inc(j);
if Массив[i,j]<0 then begin inc(Count);f:=true;
end;
end;

2Stilet

Массив[k,p]<0

очепяточка(всегда проверяется последний элемент матрицы(нижний правый))

[Stilet]

очепяточка

Ну бывает...

найти количество столбцов

Меняешь циклы местами.

у меня аллергия на break

Бывает...