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

Program Lab_426_Var19;

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

Procedure Cozdanie(A:Matrix; I:Integer);
  Var J,Min:Integer;
      B:Massive;
  Begin
  Min:=A[I,1];
  For J:=1 To 4 Do
    If Min>A[I,J] Then
      Min:=A[I,J];
  B[I]:=Abs(A[I,I] - Min);
  Write(B[I],' ');
  End;
  
Var
  I,J:Integer;
  A:Matrix;
  
Begin
Randomize;
Writeln('Matrix A :');
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('Massive B :');
For I:=1 To 4 Do
  Cozdanie(A,I);
End.