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

Program Lab_426_Var4;

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

Procedure Poisk(A:Massive; Var P:Real; J:Integer);
  Var I:Integer;
  Begin
  P:=1;
  For I:=1 To 4 Do
    If A[I,J]<0 Then
      P:=P * A[I,J];
  End;
  
Var
  I,J:Integer;
  P,Y:Real;
  A:Massive;
  
Begin
Randomize;
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;
  
Y:=0;
For J:=1 To 5 Do
  Begin
  Poisk(A,P,J);
  Y:=Y + Sqr(6-J-P);
  End;
Writeln('Y = ',Y);
End.