Добавил:
TheBazilius
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:1 семестр сессия / 3
.pas Program Lab_426_Var3;
Type Massive = Array [1..5,1..4] Of Real;
Procedure Poisk(B:Massive; Var C:Real; I:Integer);
Var J,K:Integer;
Begin
K:=0;
C:=0;
For J:=2 To 4 Do
If (B[I,1]<B[I,J]) Then
Begin
C:=C + B[I,J];
K:=K+1;
End;
If K<>0 Then C:=C/K;
End;
Var
I,J:Integer;
C,Y:Real;
B:Massive;
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
Poisk(B,C,I);
Y:=Y + Power(C-1,(6-I));
End;
Writeln('Y = ',Y);
End.
Type Massive = Array [1..5,1..4] Of Real;
Procedure Poisk(B:Massive; Var C:Real; I:Integer);
Var J,K:Integer;
Begin
K:=0;
C:=0;
For J:=2 To 4 Do
If (B[I,1]<B[I,J]) Then
Begin
C:=C + B[I,J];
K:=K+1;
End;
If K<>0 Then C:=C/K;
End;
Var
I,J:Integer;
C,Y:Real;
B:Massive;
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
Poisk(B,C,I);
Y:=Y + Power(C-1,(6-I));
End;
Writeln('Y = ',Y);
End.
Соседние файлы в папке 1 семестр сессия