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

Program Lab_426_Var1;

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

Procedure Max(A:Massive; J:Integer; Var S:Summa);
  Var I:Integer;
      Max:Real;
  Begin
  Max:=A[1,J];
  For I:=2 To 4 Do
    If Max<A[I,J] Then
      Max:=A[I,J];
  S[J]:=Max;
  {Write(S[J],' ');}
  End;

Var A:Massive;
    Y:Real;
    S:Summa;
    I,J:Integer;

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

Y:=0;
For J:=1 To 5 Do
  Max(A,J,S);
Y:=2*S[1]*S[5] + 2*S[2]*S[4] + S[3]*S[3];
Writeln;
Writeln('Y = ',Y);
End.