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

Program Lab_426_Var18;

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

Procedure Sozdanie(A:Matrix; Var J:Integer; Var B:Massive);
  Var I:Integer;
      Min,Max:Integer;
  Begin
  Min:=A[1,J];
  Max:=Min;
  For I:=2 To 4 Do
    Begin
    If Min>A[I,J] Then  Min:=A[I,J];
    If Max<A[I,J] Then  Max:=A[I,J];
    End;
  B[J]:=(Min + Max)/2;
  End;
  
Var
  I,J:Integer;
  A:Matrix;
  B:Massive;
  
Begin
Randomize;
Writeln('Matrix A :');
For I:=1 To 4 Do
  Begin
  For J:=1 To 5 Do
    Begin
    A[I,J]:=Random(21) - 10;
    Write(A[I,J],' ');
    End;
  Writeln;
  End;
  
Writeln;
Writeln('Massive B : ');
For J:=1 To 5 Do
  Begin
  Sozdanie(A,J,B);
  Write(B[J],' ');
  End;
End.