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