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

Program Lab_426_Var25;

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

Procedure Poisk(A:Matrix; Var I,N:Integer; Var S:Real);
  Var J:Integer;
  Begin
  S:=0;
  For J:=1 To N Do
    If A[I,J]>0 Then
      S:=S + A[I,J];
  End;
  
Var 
  I,J,N,Nom:Integer;
  Max,S:Real;
  A,B:Matrix;
  
Begin
Randomize;
For I:=1 To 3 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 5 Do
  Begin
  For J:=1 To 3 Do
    Begin
    B[I,J]:=Random(21) - 10;
    Write(B[I,J],' ');
    End;
  Writeln;
  End;
Writeln;

Max:=-Maxint;
N:=4;
For I:=1 To 3 Do
  Begin
  Poisk(A,I,N,S);
  If Max<S Then
    Begin
    Max:=S;
    Nom:=I;
    End;
  End;
Writeln('A : ',Nom);
Max:=-Maxint;
N:=3;
For I:=1 To 5 Do
  Begin
  Poisk(B,I,N,S);
  If Max<S Then
    Begin
    Max:=S;
    Nom:=I;
    End;
  End;
Writeln('B : ',Nom);
End.