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