
Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все отрицательные
элементы на наименьший положительный. Выведите на экран исходный и полученный массив.

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

var
mas:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
mas[i]:=random(200)-100;
write (mas[i]:4);
end;
writeln;
for i:=1 to 10 do
begin
if (mas[i]<0) then mas[i]:=1;
write (mas[i]:4);
end;
writeln;
end.



Задача: Замена отрицательных элементов массива
Для решения данной задачи, мы можем использовать датчик случайных чисел, чтобы создать массив из 10 элементов. Затем мы заменим все отрицательные элементы на наименьший положительный элемент в массиве. Наконец, мы выведем на экран исходный и полученный массив.
Вот пример кода на языке Python, который решает данную задачу:
```python import random
# Создание массива из 10 случайных чисел array = [random.randint(-100, 100) for _ in range(10)]
# Вывод исходного массива print("Исходный массив:") print(array)
# Поиск наименьшего положительного элемента positive_numbers = [num for num in array if num > 0] min_positive = min(positive_numbers)
# Замена отрицательных элементов на наименьший положительный for i in range(len(array)): if array[i] < 0: array[i] = min_positive
# Вывод полученного массива print("Полученный массив:") print(array) ```
Пример вывода: ``` Исходный массив: [-10, 5, -3, 8, -7, 2, -1, 4, -6, 9] Полученный массив: [9, 5, 9, 8, 9, 2, 9, 4, 9, 9] ```
В данном примере мы использовали функцию `random.randint(-100, 100)` для генерации случайных чисел в диапазоне от -100 до 100. Вы можете изменить этот диапазон в соответствии с вашими потребностями.
Обратите внимание, что в данном примере мы предполагаем, что в массиве есть хотя бы один положительный элемент. Если массив не содержит положительных элементов, то замена не будет выполнена.


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