
Из элементов массива A, состоящего из 10 элементов, заполненный случайным образом, сформировать
массив B по следующему правилу: положительные элементы перенести в массив b без изменений, а отрицательные заменить их модулем. Распечатать оба массива.

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

a,b:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do a[i]:=random(1001)-1000;
for i:=1 to 10 do b[i]:=abs(a[i]);
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do write(b[i],' ');
end.



Для решения данной задачи, можно использовать следующий алгоритм:
1. Создать массив A из 10 элементов, заполненный случайными числами. 2. Создать пустой массив B. 3. Пройти по каждому элементу массива A. 4. Если текущий элемент положительный, то добавить его в конец массива B без изменений. 5. Если текущий элемент отрицательный, то добавить его модуль в конец массива B. 6. Распечатать массивы A и B.
Пример реализации данного алгоритма на языке Python:
```python import random
# Создаем массив A из 10 элементов, заполненный случайными числами A = [random.randint(-10, 10) for _ in range(10)]
# Создаем пустой массив B B = []
# Проходим по каждому элементу массива A for element in A: # Если текущий элемент положительный, добавляем его в конец массива B без изменений if element > 0: B.append(element) # Если текущий элемент отрицательный, добавляем его модуль в конец массива B else: B.append(abs(element))
# Распечатываем массивы A и B print("Массив A:", A) print("Массив B:", B) ```
Пример вывода: ``` Массив A: [2, -8, 5, 3, -6, 10, -4, 7, 0, 9] Массив B: [2, 8, 5, 3, 6, 10, 4, 7, 0, 9] ```
В данном примере массив A состоит из 10 случайных чисел. В массиве B положительные элементы остаются без изменений, а отрицательные заменяются их модулем. Результат сохраняется в массиве B и выводится на экран.


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