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

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

Procedure Poisk(A:Massive; Var I,K:Integer);
Var J:Integer;
Begin
For J:=1 To 4 Do
If A[I,J]=0 Then K:=K+1;
End;

Var
I,J,K1,K2,K:Integer;
A:Massive;

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

K:=0;
For I:=1 To 2 Do
Poisk(A,I,K);
K1:=K;
K:=0;
For I:=4 To 5 Do
Poisk(A,I,K);
K2:=K;
If K1>=K2 Then
If K1>K2 Then Writeln('БОЛЬШЕ В ВЕРХНЕЙ')
Else Writeln('ОДИНАКОВО')
Else Writeln('БОЛЬШЕ В НИЖНЕЙ');
End.
Соседние файлы в папке 1 семестр сессия