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

Program Lab_426_Var2;

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

Procedure Min(B:Massive; I:Integer; Var M:Real);
Var J:Integer;
Begin
M:=B[I,1];
For J:=2 To 4 Do
If M>B[I,J] Then
M:=B[I,J];
End;

Var
Y,M:Real;
B:Massive;
I,J:Integer;

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

Y:=0;
For I:=1 To 5 Do
Begin
Min(B,I,M);
Y:=(6-I)*M + Y;
End;
Writeln('Y = ',Y);
End.