
Дан целочисленный массив из 23 элементов, заданных случайным образом. Вывести все содержащиеся в
данном массиве нечетные числа в порядке возрастания, а также их количество К.

Ответы на вопрос

Ответ:
Объяснение:
program odd;
var
arr1, arr2: array[1..23] of integer;
i, cnt, tmp, buffer: integer;
begin
writeln('исходный массив:');
for i := 1 to 23 do
begin
arr1[i] := random(100);
write(arr1[i], ' ');
end;
writeln();
cnt := 0; //считем сколько нечетных, переносим в другой массив
for i := 1 to 23 do
begin
if arr1[i] mod 2 <> 0 then
begin
cnt := cnt + 1;
arr2[cnt] := arr1[i];
end;
end;
//сортируем arr2 пузырьком
for i := (cnt - 1) downto 1 do
begin
tmp := i;
while ((tmp < cnt) and (arr2[tmp] > arr2[tmp + 1])) do
begin
//swap
buffer := arr2[tmp];
arr2[tmp] := arr2[tmp + 1];
arr2[tmp + 1] := buffer;
tmp := tmp + 1;
end;
end;
Writeln('отсортированные нечетные:');
for i := 1 to cnt do
write(arr2[i], ' ');
writeln();
writeln('всего: ', cnt);
end.



Ответ:
--- PascalABC.NET 3.6.2 ---
begin
var A := ArrRandom(23, -99,99);
A.Where(p -> p mod 2 <> 0).Sorted.Println.Count.Println;
end.
Да, это полноценная работающая программа, решающая вашу задачу.



Конечно, вот пример кода на Python, который выполняет указанную задачу:
pythonimport random
# Создаем массив из 23 случайных элементов
array = [random.randint(1, 100) for _ in range(23)]
# Фильтруем нечетные числа и сортируем их
odd_numbers = sorted([num for num in array if num % 2 != 0])
# Выводим нечетные числа и их количество
print("Нечетные числа в порядке возрастания:", odd_numbers)
print("Количество нечетных чисел:", len(odd_numbers))
В этом коде мы используем модуль random
для генерации случайных чисел. Затем мы фильтруем массив, оставляя только нечетные числа, и сортируем их в порядке возрастания с помощью функции sorted()
. Наконец, выводим отсортированный список и его длину (количество нечетных чисел) с помощью функции len()
.


Похожие вопросы
Топ вопросов за вчера в категории Информатика








Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili