
Дан массив целых чисел из 15 элементов, заполненный случайным образом числами из промежутка
[-20,50]. Заменить все элементы, кратные 5, на 0. Отсортировать получившийся массив в порядке возрастания. ПОМОГИТЕ

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

program v5;
var a:array[1..15]of integer;
i,j,n,buf:integer;
begin
randomize;
for i:=1 to 15 do
begin
a[i]:=random(70)-20;
write(a[i], ' | ');
end;
writeln; writeln('Измененный массив: ');
for i:= 1 to 15 do
begin
if a[i] mod 5=0 then
begin
a[i]:= 0;
write(a[i], ' | ')
end
else
write(a[i], ' | ');
end;
for i:=1 to 15-1 do
for j:=1 to 15-i do
begin
if (a[j] > a[j+1]) then
begin
buf := a[j];
a[j] := a[j+1];
a[j+1] := buf;
end;
end;
writeln; writeln('Массив после рассортировки по возрастанию:');
for i:=1 to 15 do
write(a[i], ' | ');
end.




Конечно, я могу помочь вам написать код для выполнения этой задачи на языке Python. Вот пример:
pythonimport random
# Создайте массив из 15 случайных чисел в диапазоне [-20, 50]
array = [random.randint(-20, 50) for _ in range(15)]
# Выведите исходный массив
print("Исходный массив:", array)
# Замените элементы, кратные 5, на 0
for i in range(len(array)):
if array[i] % 5 == 0:
array[i] = 0
# Отсортируйте массив в порядке возрастания
array.sort()
# Выведите отсортированный массив
print("Отсортированный массив:", array)
Этот код создает массив из 15 случайных чисел в заданном диапазоне, затем заменяет элементы, кратные 5, на 0, и, наконец, сортирует массив в порядке возрастания. Вы можете запустить этот код в среде Python, чтобы получить результат.


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







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