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

Program Lab_426_Var27;

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

Procedure Sozdanie(A:Matrix; Var J:Integer);
Var Diag,I:Integer;
B:Massive;
Begin
Diag:=A[J,J];
B[J]:=0;
For I:=1 To 5 Do
If A[I,J]>Diag Then
B[J]:=1;
Write(B[J],' ');
End;

Var
I,J:Integer;
A:Matrix;

Begin
Randomize;
For I:=1 To 5 Do
Begin
For J:=1 To 5 Do
Begin
A[I,J]:=Random(21) - 10;
Write(A[I,J],' ');
End;
Writeln;
End;
Writeln;

Write('B : ');
For J:=1 To 5 Do
Sozdanie(A,J);
End.