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

Program Lab_426_Var26;

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

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