Найти минимальное положительное и максимальное отрицательное числа, не входящие в вектор - 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.
Выручайте

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

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

Объяснение кода листинга программы

  1. Создается переменная mp для хранения минимального положительного числа.
  2. Эта переменная инициализируется значением MaxInt, представляющим наивысшее возможное целое число в языке Pascal.
  3. Создается переменная mn для хранения максимального отрицательного числа.
  4. Эта переменная инициализируется значением -MaxInt-1, что представляет наивысшее возможное отрицательное значение в языке Pascal.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.8 из 5
Похожие ответы