Question

помогите пожалуйста!
ПАСКАЛЬ
Из двумерного массива (5x5) вывести строки, где содержится хотя бы один элемент 0

Answer 1

Program undertaker;
Uses crt;
var
   a:array[1..10,1..10]of integer;  
  i,j,k,n,m,S:integer;
begin
     clrscr;  
    Write ('Введите кол-во строк :');  
    readln (n);  
   Write ('Введите кол-во столбцов :');  
   readln (m);  
   for i:=1 to n do    
       begin  
             for j:=1 to m do        
        begin  
              write ('A[',i,j,']=');
                 Readln(a[i,j]);
                 end;  
               writeln;  
                  end;
                 writeln('Исходная матрица:');  
               For i:=1 to n do    
                   begin  
                          for j:=1 to m do  
                          begin  
                          write(a[i,j]:3);      
                      end;    
                        writeln;  
                    end;  
                     for i:=1 to n do  
                         begin  
                          k:=0;  
                         for j:=1 to m do    
                   if a[i,j]=0 then    
                      begin    
                      k:=k+1;    
                      S:=1;      
                   end;            
              if k>=1 then      
                   writeln('Ноль есть в ',i,' строке');  
                end;    
              if S<1 then    
              writeln('В матрице нет нулевых элементов!');
  end.