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

[Jaxx]

Дан двумерный квадратный массив. Найти номера строк, все элементы которых равны нулю. Использовать подпрограммы для решения каждой частной задачи.
Я так понимаю, что пользователь сам вводит элементы массива с клавиатуры, причем удобнее по строкам. Например, так:

Код

Введите 1-ю строку массива: 1 2 3 4 5
Введите 2-ю строку массива: 0 0 0 0 0
Введите n-ю строку массива: . . . . . .

Массив размером 5 на 5, больше не нужно

[Jaxx]

Получилось следующее:

Uses crt;
const
 n=5;
var
 arr:array[1..n,1..n] of integer;
 i,j:integer;

procedure fill;
var
 i,j:integer;
begin
 for i:=1 to n do begin
     write('vvedite ',i,'-yu stroku massiva: ');
     for j:=1 to n do read(arr[i,j]);
     readln
 end;
end;

procedure find;
var
 i,j:integer;
begin
 for i:=1 to n do
 for j:=1 to n do
 begin
 if arr[i,j]=0 then writeln('0 v stroke: ',i);
end;
end;

begin
 clrscr;
 fill;
 find;
 readln;
end.

Поправьте, плиз, цикл вывода на экран номеров строк, заполненных нулями... А то выводятся по несколько раз подряд... И, может, еще где ошиПки есть, покажите

Сообщение отредактировано: Jaxx - 4.07.2007 17:59