Написать пузырьковую сортировку в обратном направлении на основе кода во вложении. вложение: отсортировать от наибольшего значения к наименьшему # написать программу, которая сортирует массив # от наименьшего значения, к наибольшему # импортирую генератор случайных чисел import random mas = [] # введу количество элементов массива n = int(input('введите количество элементов массива: ')) count = 0 while count < n: # генерация случайного целого числа от 0 до 100 x = random.randint(0, 100) mas.append(x) count += 1 print(mas) # определить длину массива l = len(mas) # зададим индексы для обхода i (внешний круг) и j (внутренний круг) i, j = 0, 0 # равносильно i = 0; j = 0 # реализую внешний цикл while i < l: # указываю правый элемент от текущего j = i+1 # реализация внутреннего цикла while j < l: # если текущий элемент больше правого, то поменять их местами if mas[i] > mas[j]: mas[i], mas[j] = mas[j], mas[i] j += 1 j = 0 i += 1 print(mas)
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.