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

Program Lab_426_Var8;

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

Procedure Poisk(A:Massive; Var I,K:Integer);
  Var J:Integer;
  Begin
  For J:=1 To 5 Do
    If A[I,J]=0 Then K:=K+1;
  End;
  
Var
  I,J,K1,K2,K:Integer;
  A:Massive;
  
Begin
Randomize;
For I:=1 To 4 Do
  Begin
  For J:=1 To 5 Do
    Begin
    A[I,J]:=Random(6) - 5;
    Write(A[I,J],' ');
    End;
  Writeln;
  End;
  
K:=0;
For I:=1 To 2 Do
  Poisk(A,I,K);
K1:=K;
K:=0;
For I:=3 To 4 Do
  Poisk(A,I,K);
K2:=K;
If K1>=K2 Then
  If K1>K2 Then Writeln('БОЛЬШЕ В ВЕРХНЕЙ')
  Else  Writeln('ОДИНАКОВО')
Else  Writeln('БОЛЬШЕ В НИЖНЕЙ');
End.