1 семестр сессия / 6

Program Lab_426_Var6;

Type Massive = Array [1..4,1..5] Of Real;
Type Kolich = Array [1..4] Of Integer;

Procedure Poisk(A:Massive; I:Integer; Var Nul:Kolich);
  Var J:Integer;
  Begin
  Nul[I]:=0;
  For J:=1 To 5 Do
    If A[I,J]=0 Then
      Nul[I]:=Nul[I]+1;
      
  End;
  
Var
  I,J,Kol:Integer;
  A:Massive;
  Nul:Kolich;
  
Begin
Randomize;
For I:=1 To 4 Do
  Begin
  For J:=1 To 5 Do
    Begin
    A[I,J]:=Random(6) - 5;
    Write(A[I,J],' ');
    End;
  Writeln;
  End;
  
Kol:=0;
For I:=1 To 4 Do
  Begin
  Poisk(A,I,Nul);
  If Nul[I]<>0 Then  Kol:=Kol + 1;
  End;
If Kol=0 Then Writeln('НЕТ СТРОК С НУЛЯМИ')
Else
  For I:=1 To 4 Do
    If Nul[I]<>0 Then
      Begin
      Write('строка № ',I,' : ');
      For J:=1 To 5 Do
        Write(A[I,J],' ');
      Writeln;
      End;
End.