Найти минимальное положительное и максимальное отрицательное числа, не входящие в вектор - 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; { макс.отриц. }
Объяснение кода листинга программы
- Создается переменная
mp
для хранения минимального положительного числа. - Эта переменная инициализируется значением
MaxInt
, представляющим наивысшее возможное целое число в языке Pascal. - Создается переменная
mn
для хранения максимального отрицательного числа. - Эта переменная инициализируется значением
-MaxInt-1
, что представляет наивысшее возможное отрицательное значение в языке Pascal.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д