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

Program Lab_426_Var3;

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

Procedure Poisk(B:Massive; Var C:Real; I:Integer);
  Var J,K:Integer;
  Begin
  K:=0;
  C:=0;
  For J:=2 To 4 Do
    If (B[I,1]<B[I,J]) Then
      Begin
      C:=C + B[I,J];
      K:=K+1;
      End;
  If K<>0 Then C:=C/K;
  End;
  
Var
  I,J:Integer;
  C,Y:Real;
  B:Massive;

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

Y:=0;
For I:=1 To 5 Do
  Begin
  Poisk(B,C,I);
  Y:=Y + Power(C-1,(6-I));
  End;
Writeln('Y = ',Y);
End.