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

Program Lab_426_Var23;

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

Procedure Cozdanie(A:Matrix; J:Integer);
Var I,Max,Nom:Integer;
B:Massive;
Begin
Max:=A[1,J];
Nom:=1;
For I:=1 To 4 Do
Begin
If Max<A[I,J] Then
Begin
Max:=A[I,J];
Nom:=I;
End;
End;
B[J]:=Nom;
Write(B[J],' ');
End;

Var
I,J:Integer;
A:Matrix;

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

For J:=1 To 4 Do
Cozdanie(A,J);
End.