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

Program Lab_426_Var24;

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

Procedure Poisk(A:Matrix; Var J:Integer; Var Sred:Real);
  Var I,K:Integer;
  Begin
  Sred:=0;
  K:=0;
  For I:=1 To 5 Do
    If A[I,J]<0 Then
      Begin
      Sred:=Sred + A[I,J];
      K:=K + 1;
      End;
  Sred:=Sred/K;
  End;
  
Var 
  I,J,Nom:Integer;
  Min,Sred:Real;
  A:Matrix;
  
Begin
Randomize;
For I:=1 To 5 Do
  Begin
  For J:=1 To 4 Do
    Begin
    A[I,J]:=Random(21) - 10;
    Write(A[I,J],' ');
    End;
  Writeln;
  End;
Writeln;

Min:=Maxint;
For J:=1 To 4 Do
  Begin
  Poisk(A,J,Sred);
  If Min>Sred Then
    Begin
    Min:=Sred;
    Nom:=J;
    End;
  End;
Writeln(Nom);
End.