Question

Составить программу, определяющую , содержится лив двумерном массиве строка, состоящая из нулевых элементов. Результат должен быть один (да) (нет) Можете посмотреть, что тут не так и подкорректировать/написать новую? Заранее спс)

9c4bdc61d6b17abca6a01a14a156323c.pas

Answer 1

Можно вот так:
program z3;
 const
 n1=20;//строки
 m1=20;//столбцы
var
mas:array  [1..n1,1..m1] of integer;
n,m,i,j,k,fl:integer;

begin
randomize;
writeln('Введите кол-во строк и столбцов через пробел');
readln(n,m);
for i:=1 to n do begin
  for j:=1 to m do begin
  mas[i,j]:=-1 + random(2);
  write(mas[i,j]:3);
  end;
  writeln;
  end;
  writeln;
 fl:=0;
 for i:=1 to n do 
  begin
  k:=0;
  for j:=1 to m do
   if mas[i,j] = 0 then k:=k+1;
  if k=m then fl:=1;
  end;
  if fl = 1 then writeln('yes') else writeln('no');
end.

Пример:
Введите кол-во строк и столбцов через пробел
6 4
 -1  0  0  0
  0  0  0 -1
  0  0  0  0
  0 -1  0 -1
 -1 -1  0 -1
  0 -1 -1 -1

yes