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.