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

Program Lab_426_Var5;

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

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