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.