Информатика Практика / 10

Program praktika10;
Uses CRT;
Const n=7;
Var a: Array [1..n] Of Integer;
i, k, max, min, max2, count, imax: Integer;
Begin
For i:= 1 to n Do
Begin
Write('Введите число: ');
ReadLn(k);
a[i]:=k;
End;
WriteLn;
WriteLn('Исходный массив:');
WriteLn;
For i:= 1 to n Do
Begin
Write(a[i]:5);
End;
max:=a[1];
min:=a[1];
max2:=a[2];
For i:= 1 to n Do
Begin
If (a[i]>max)
Then max:=a[i];
If (a[i]<min)
Then min:=a[i];
End;
For i:= 1 to n Do
Begin
If ((a[i]>max2) and (a[i]<max))
Then max2:=a[i];
End;
If (max<0)
Then
Begin
imax:=max+1;
WriteLn;
WriteLn;
WriteLn('максимальный невходящий слева = ', imax);
ReadLn;
Exit;
End;
Repeat
If (max-max2>1)
Then imax:=max-1;
If (max-max2=1)
Then
Begin
max:=max2;
max2:=min;
For i:= 1 to n Do
Begin
If ((a[i]>max2) and (a[i]<max))
Then max2:=a[i];
End;
End;
If ((max2=min) and (max2<max+1))
Then imax:=max2-1;
If ((max=min) and ((min=1) or (min=-1)))
Then Break;
If ((max2=1) and (max=3))
Then imax:=2;
Until(imax<>0);
WriteLn;
WriteLn;
WriteLn('максимальный невходящий слева = ', imax);
ReadLn;
End.