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

Program Lab_426_Var22;

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

Procedure Cozdanie(A:Matrix; J:Integer);
  Var I,K:Integer;
      B:Massive;
  Begin
  K:=0;
  For I:=1 To 4 Do
    If A[I,J]=0 Then K:=1; 
  If K<>0 Then
    B[J]:=0
  Else B[J]:=1;
  Write(B[J],' ');
  End;
  
Var
  I,J:Integer;
  A:Matrix;
  
Begin
Randomize;
For I:=1 To 4 Do
  Begin
  For J:=1 To 4 Do
    Begin
    A[I,J]:=Random(21) - 10;
    Write(A[I,J],' ');
    End;
  Writeln;
  End;
Writeln;

For J:=1 To 4 Do
  Cozdanie(A,J);
End.