Добавил:
TheBazilius
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:1 семестр сессия / 24
.pas Program Lab_426_Var24;
Type Matrix = Array [1..5,1..4] Of Integer;
Procedure Poisk(A:Matrix; Var J:Integer; Var Sred:Real);
Var I,K:Integer;
Begin
Sred:=0;
K:=0;
For I:=1 To 5 Do
If A[I,J]<0 Then
Begin
Sred:=Sred + A[I,J];
K:=K + 1;
End;
Sred:=Sred/K;
End;
Var
I,J,Nom:Integer;
Min,Sred:Real;
A:Matrix;
Begin
Randomize;
For I:=1 To 5 Do
Begin
For J:=1 To 4 Do
Begin
A[I,J]:=Random(21) - 10;
Write(A[I,J],' ');
End;
Writeln;
End;
Writeln;
Min:=Maxint;
For J:=1 To 4 Do
Begin
Poisk(A,J,Sred);
If Min>Sred Then
Begin
Min:=Sred;
Nom:=J;
End;
End;
Writeln(Nom);
End.
Type Matrix = Array [1..5,1..4] Of Integer;
Procedure Poisk(A:Matrix; Var J:Integer; Var Sred:Real);
Var I,K:Integer;
Begin
Sred:=0;
K:=0;
For I:=1 To 5 Do
If A[I,J]<0 Then
Begin
Sred:=Sred + A[I,J];
K:=K + 1;
End;
Sred:=Sred/K;
End;
Var
I,J,Nom:Integer;
Min,Sred:Real;
A:Matrix;
Begin
Randomize;
For I:=1 To 5 Do
Begin
For J:=1 To 4 Do
Begin
A[I,J]:=Random(21) - 10;
Write(A[I,J],' ');
End;
Writeln;
End;
Writeln;
Min:=Maxint;
For J:=1 To 4 Do
Begin
Poisk(A,J,Sred);
If Min>Sred Then
Begin
Min:=Sred;
Nom:=J;
End;
End;
Writeln(Nom);
End.
Соседние файлы в папке 1 семестр сессия