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