![](/user_photo/_userpic.png)
Добавил:
TheBazilius
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:1 семестр сессия / 28
.pas Program Lab_426_Var28;
Type Matrix = Array [1..4,1..5] Of Integer;
Procedure Poisk(A:Matrix; I1,I2:Integer; Var K:Integer; Var Sred:Real);
Var I,J:Integer;
Begin
K:=0;
Sred:=0;
For I:=I1 To I2 Do
For J:=1 To 5 Do
Begin
If A[I,J]>0 Then
K:=K + 1
Else
Sred:=Sred + A[I,J];
End;
Sred:=Sred/(10-K);
End;
Var
I,J,I1,I2,K1,K2:Integer;
Sred1,Sred2:Real;
A:Matrix;
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;
Writeln;
I1:=1; I2:=2;
Poisk(A,I1,I2,K1,Sred1);
I1:=3; I2:=4;
Poisk(A,I1,I2,K2,Sred2);
Writeln('ПОЛОЖИТЕЛЬНЫХ ЭЛЕМЕНТОВ : ');
If K1>K2 Then Writeln(' БОЛЬШЕ Наверху : ',K1)
Else Writeln(' БОЛЬШЕ Внизу : ',K2);
Writeln('Ср. АРИФМЕТ. : ');
If Sred1>=Sred2 Then
If Sred1>Sred2 Then
Writeln(' БОЛЬШЕ Наверху : ',Sred1)
Else
Writeln(' ОДИНАКОВО : ',Sred1)
Else
Writeln(' БОЛЬШЕ Внизу : ',Sred2);
End.
Type Matrix = Array [1..4,1..5] Of Integer;
Procedure Poisk(A:Matrix; I1,I2:Integer; Var K:Integer; Var Sred:Real);
Var I,J:Integer;
Begin
K:=0;
Sred:=0;
For I:=I1 To I2 Do
For J:=1 To 5 Do
Begin
If A[I,J]>0 Then
K:=K + 1
Else
Sred:=Sred + A[I,J];
End;
Sred:=Sred/(10-K);
End;
Var
I,J,I1,I2,K1,K2:Integer;
Sred1,Sred2:Real;
A:Matrix;
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;
Writeln;
I1:=1; I2:=2;
Poisk(A,I1,I2,K1,Sred1);
I1:=3; I2:=4;
Poisk(A,I1,I2,K2,Sred2);
Writeln('ПОЛОЖИТЕЛЬНЫХ ЭЛЕМЕНТОВ : ');
If K1>K2 Then Writeln(' БОЛЬШЕ Наверху : ',K1)
Else Writeln(' БОЛЬШЕ Внизу : ',K2);
Writeln('Ср. АРИФМЕТ. : ');
If Sred1>=Sred2 Then
If Sred1>Sred2 Then
Writeln(' БОЛЬШЕ Наверху : ',Sred1)
Else
Writeln(' ОДИНАКОВО : ',Sred1)
Else
Writeln(' БОЛЬШЕ Внизу : ',Sred2);
End.
Соседние файлы в папке 1 семестр сессия