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

[Jaxx]

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

Код

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

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

[Jaxx]

Проблема в том, как сделать ввод именно в том виде, в котором я привел его в примере. Остальное - сделаю сам

[Lapp]

Проблема в том, как сделать ввод именно в том виде, в котором я привел его в примере. Остальное - сделаю сам

Вот так примерно:

for i:=1 to n do begin
  Write('Введите ',i,'-ю строку массива: ');
  for j:=1 to n do Read(a[i,j]);
  ReadLn
end;