Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
11
Добавлен:
05.06.2018
Размер:
599 б
Скачать
Program Lab_426_Var26;

Type Matrix = Array [1..5,1..5] Of Integer;
Type Massive = Array [1..5] Of Integer;

Procedure Sozdanie(A:Matrix; Var I:Integer);
Var Diag,J:Integer;
B:Massive;
Begin
Diag:=A[I,I];
B[I]:=0;
For J:=1 To 5 Do
If A[I,J]>Diag Then
B[I]:=1;
Write(B[I],' ');
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 I:=1 To 5 Do
Sozdanie(A,I);
End.
Соседние файлы в папке 1 семестр сессия