Добавил:
TheBazilius
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:1 семестр сессия / 1
.pas 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.
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.