
Вопрос задан 02.10.2023 в 14:59.
Предмет Информатика.
Спрашивает Петрова Настя.
В массиве вещественных чисел A(10) положительные элементы уменьшить вдвое, а отрицательные заменить
на значения их индексов. Новый массив вывести на печать.

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

Отвечает Волотаев Дима.
Ответ:
program z1;
var i:integer;
a:array[1..10] of real;
begin
write('Старый массив: ');
for i:=1 to 10 do
begin
a[i]:=random(11)-5;
write (a[i]:6)
end;
writeln;
write(' Новый массив: ');
for i:=1 to 10 do
begin
if a[i] > 0 then a[i]:=a[i]/2;
if a[i] < 0 then a[i]:=i;
write (a[i]:6)
end
end.
Объяснение:
Элементы равные 0 остаются без изменений



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Для выполнения данной задачи вам потребуется написать программу на языке программирования. Ниже приведен пример решения данной задачи на языке Python:
python# Создаем исходный массив A
A = [5.2, -3.4, 7.8, -1.2, 9.5, -2.0, 4.7, 6.1, 0.3, 8.6]
# Создаем новый массив B для хранения результата
B = []
# Проходим по элементам исходного массива A
for i in range(len(A)):
if A[i] > 0:
# Если элемент положительный, уменьшаем его вдвое и добавляем в новый массив B
B.append(A[i] / 2)
else:
# Если элемент отрицательный, добавляем его индекс в новый массив B
B.append(i)
# Выводим новый массив B на печать
print(B)
Вы можете изменить исходный массив A
и выполнить этот код, чтобы получить результат для вашего массива. Результат будет содержать элементы нового массива B
, в котором положительные элементы уменьшены вдвое, а отрицательные заменены на их индексы.


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