Обработка массивов

[naty7773]

В матрице А (m x n ) найти число нулевых строк.
Помогите пожалуйста написать программу((((Дали сделать за один день

[naty7773]

.Помогите пожалуйста написать программу!!!!Вобще не знаю как делать((((

[Лубышев]

найти число нулевых строк.

то есть где все элементы равны 0?

count:=0;
for i:=0 to length(A)-1 do
begin
  k:=0;
  for j:=0 to length(A[i])-1 do
  begin
    if A[i,j]=0 then inc(k);
  end;
  if k=length(A[i])-1 then inc(count);
end;

writeln(count);{в count количество строк в которых все элементы равны 0}

[Hacker19_90]

function GetZeroRows (const matrix: TMatrix; const rows, cols: integer):integer;
var
    i, j: integer;
    count: integer;
begin
    count := rows;
    for i := 1 to rows do
         for j := 1 to cols do
             if matrix[i,j] <> 0 then
             begin
                 Dec(count);
                 break;
             end;
     GetZeroRows := count;
end;

Собственно где
TMatrix это

type
    TMatrix = array[1..rows,1..cols] of integer;

[Лубышев]

Опять мы сошлись и толкаем одно и тоже))) тока че то ты в этот раз задом наперед решил)))

[Hacker19_90]

Опять мы сошлись и толкаем одно и тоже))) тока че то ты в этот раз задом наперед решил)))

эммм... что?

[Лубышев]

Просто забавный способ с обратным отсчетом) а почему не с прямым как у меня было написано?)))))

[Hacker19_90]

а почему не с прямым как у меня было написано?

Не знай! была мысль, но мне показалось что с обратном отсчётом будет более рациональным!

[naty7773]

Спасибо большое ребята!!!!!!Очень помогли)))