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.