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

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

Procedure Cozdanie(A:Matrix; J:Integer);
Var I:Integer;
B:Massive;
Begin
If (A[1,J]<=A[2,J]) And (A[2,J]<=A[3,J]) And (A[3,J]<=A[4,J]) Then
B[J]:=1
Else B[J]:=0;
Write(B[J],' ');
End;

Var
I,J:Integer;
A:Matrix;

Begin
Randomize;
For I:=1 To 4 Do
Begin
For J:=1 To 5 Do
Begin
A[I,J]:=Random(21) - 10;
Write(A[I,J],' ');
End;
Writeln;
End;
Writeln;

For J:=1 To 5 Do
Cozdanie(A,J);
End.
Соседние файлы в папке 1 семестр сессия