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

Program Lab_426_Var28;

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

Procedure Poisk(A:Matrix; N,M:Integer; Var K:Integer; Var Sred:Real);
  Var I,J:Integer;
  Begin
  K:=0;
  Sred:=0;
  For I:=1 To N Do
    For J:=1 To M Do
      Begin
      If A[I,J]<0 Then
        K:=K + 1
      Else
        Sred:=Sred + A[I,J];
      End;
  Sred:=Sred/(10-K);
  End;
  
Var
  I,J,N,M,K1,K2:Integer;
  Sred1,Sred2:Real;
  A,B:Matrix;
  
Begin
Randomize;
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;
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; M:=4;
  Poisk(A,N,M,K1,Sred1);
  
N:=3; M:=3;
  Poisk(B,N,M,K2,Sred2);

Writeln('ОТРИЦАТЕЛЬНЫХ ЭЛЕМЕНТОВ : ');  
If K1>K2 Then Writeln('     БОЛЬШЕ "A" : ',K1)
Else Writeln('      БОЛЬШЕ В "B" : ',K2);

Writeln('Ср. АРИФМЕТ. : ');
If Sred1>=Sred2 Then
  If Sred1>Sred2 Then
    Writeln('     БОЛЬШЕ B "A" : ',Sred1)
  Else
    Writeln('     ОДИНАКОВО : ',Sred1)
Else
  Writeln('     БОЛЬШЕ В "B" : ',Sred2);
End.