Много различных вариантов действий, но мне нужно как-нибудь сделать задание. Пока что на данный момент самое понятное для меня - это отсортировать массив, затем найти минимальный нечетный элемент, сохранить его значение и значение его позиции в массиве в переменные. Далее повторить поиск минимального элемента, но с условием, что его позиция в массиве не будет равна позиции в массиве найденного ранее элемента. За нечетный элемент буду принимать значение, а не позицию в массиве, поэтому тип будет integer. Сортировку я переписал из учебника, а поиск минимального элемента дописывал сам. При выполнении программы выполняется только сортировка, и на экран выводится отсортированный список. Далее никаких действий выполнить невозможно, приходится закрывать программу и открывать по новой. Ошибка явно в дописанной мной части поиска минимального элемента.
Можете подсказать, что там не так? Спасибо заранее!
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
program Bla_bla;
const
n = 20;
var
arr: array [1..n] of Integer;
middle: Integer; {средний элемент}
min, min_2, min_pos, min_2_pos: Integer; {мин и 2-й мин зл-ты и их позиции}
temp: Integer; {буферная перем. для обмена 2-х знач. в массиве}
sp: Integer; {указатель на вершину стека}
i, j: Integer;
stackl, stackr: array [1..n] of Integer; {стеки границ фрагментов}
left, right: Integer; {границы сортируемого фрагмента}
begin
writeln('Введите 20 элементов массива');
for i := 1 to n do
read(arr[i]);
sp := 1;
stackl[1] := 1;
stackr[1] := n;
while sp > 0 do
begin
{выборка границ фрагмента из стека}
left := stackl[sp];
right := stackr[sp];
dec(sp);
while left < right do
begin
{разделение фрагмента arr[left]..arr[right]:}
i := left;
j := right;
middle := arr[(left + right) div 2];
while i < j do
begin
while arr[i] < middle do
inc(i);
while middle < arr[j] do
dec(j);
if i <= j then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
inc(i); dec(j);
end;
end;
if i < right then
begin
{запись в стек границ правой части фрагмента}
inc(sp);
stackl[sp] := i;
stackr[sp] := right;
end;
right := j;
{теперь left и right ограничивают левую часть}
end;
end;
writeln('Упорядоченный массив: ');
for i := 1 to n do
write(arr[i]:8);
readln;
{До этого был код из учебника и он выполняется. Далее то, что дописывал сам}
min := 1;
for i := n downto 1 do
if (arr[i] mod 2 <> 0) and (arr[i] > 0) then
begin
min := arr[i];
i := min_pos;
end;
min_2 := 1;
for i := n to min do
if (arr[i] mod 2 <> 0) and (arr[i] > 0) and (i <> min_pos) then
begin
min_2 := arr[i];
min_2_pos := i;
end;
writeln('Второй мин положительный элемент: ', min_2);
writeln('Его позиция в массиве: ', min_2_pos);
end.
