Найти минимальное положительное и максимальное отрицательное числа, не входящие в вектор - Pascal

Формулировка задачи:

Задание: в целочисленном векторе vector найти минимальное положительное и максимальное отрицательное числа, не входящие в этот вектор. Предусмотреть случай, когда таких элементов нет. Нужно добавить выделенное условие в программу:
Const n=10;
Var vector : array[1..n] of integer;
    i, max_otr_not, min_pol_not, v_max, v_min : integer;
    label 5, 10;
Begin
Randomize;
WriteLn('Входные данные:');
WriteLn('n=',n);
Write('v_min=');
Readln(v_min);
Write('v_max=');
Readln(v_max);
For i:=1 to n do
 vector[i]:=random(v_max-v_min+1)+v_min;
min_pol_not:=1;
max_otr_not:=-1;
5 : For i:=1 to n do
 If(vector[i]=min_pol_not)
  Then
   Begin
    min_pol_not:=min_pol_not+1;
    goto 5;
   End;
10 : For i:=1 to n do
 If(vector[i]=max_otr_not)
  Then
   Begin
    max_otr_not:=max_otr_not-1;
    goto 10;
   End;
WriteLn('Исходный вектор:');
For i:=1 to n do
  Begin
   Write(vector[i]:3);
   WriteLn;
  End;
WriteLn;
WriteLn('Выходные данные:');
WriteLn('min_pol_not=',min_pol_not);
WriteLn('max_otr_not=',max_otr_not);
ReadLn;
End.
Выручайте

Код к задаче: «Найти минимальное положительное и максимальное отрицательное числа, не входящие в вектор - Pascal»

textual
mp:=MaxInt; { мин.положит. }
mn:=-MaxInt-1; { макс.отриц. }

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

15   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы