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

Program Lab_426_Var19;

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

Procedure Poisk(A:Matrix; J:Integer; N:Integer; Var Sred:Real);
  Var I:Integer;
  Begin
  Sred:=0;
  For I:=1 To N Do
    Sred:=Sred + A[I,J];
  Sred:=Sred/N;
  End;
  
Var
  N,I,J,St:Integer;
  Sred,Min:Real;
  A,B:Matrix;

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

N:=2; St:=0; Min:=Maxint;
For J:=1 To 4 Do
  Begin
  Poisk(A,J,N,Sred);
  If Sred<Min Then
    Begin
    Min:=Sred;
    St:=J;
    End;
  End;
Writeln('V Matrix A : ',St);

N:=3; St:=0; Min:=Maxint;
For J:=1 To 3 Do
  Begin
  Poisk(B,J,N,Sred);
  If Sred<Min Then
    Begin
    Min:=Sred;
    St:=J;
    End;
  End;
Writeln('V Matrix B : ',St);
End.