Напишите программу в среде программирования
PascalABC. Протестируйте ее.
Дан целочисленный массив из 10 элементов. Вывести на экран
все его нечетные элементы, предварительно расположив их по
возрастанию методом прямого выбора. В качестве ответа напишите код вашей программы (учитывая синтаксис языка
программирования Pascal).
Ответы
Ответ:
Вот программа на языке PascalABC, которая сортирует нечетные элементы целочисленного массива из 10 элементов методом прямого выбора и выводит их на экран:
pascal
Copy code
program OddElementsSelectionSort;
var
arr: array[1..10] of Integer;
i, j, minIndex, temp: Integer;
begin
writeln('Введите 10 целых чисел:');
for i := 1 to 10 do
begin
write('Элемент ', i, ': ');
readln(arr[i]);
end;
for i := 1 to 9 do
begin
if arr[i] mod 2 = 1 then
begin
minIndex := i;
for j := i + 1 to 10 do
begin
if (arr[j] mod 2 = 1) and (arr[j] < arr[minIndex]) then
minIndex := j;
end;
if minIndex <> i then
begin
temp := arr[i];
arr[i] := arr[minIndex];
arr[minIndex] := temp;
end;
end;
end;
writeln('Отсортированные нечетные элементы:');
for i := 1 to 10 do
begin
if arr[i] mod 2 = 1 then
writeln('Элемент ', i, ': ', arr[i]);
end;
readln;
end.
Программа сначала запрашивает ввод 10 целых чисел, затем сортирует нечетные элементы методом прямого выбора и выводит отсортированные нечетные элементы на экран.