
дан массив вещественных чисел . Вывести на экран новое состояние массива , в котором все
положительные элементы увеличились в 2 раза , ф отрицательные - уменьшились в 2 раза.

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

program z1;
uses Crt;
var a: array [1..10] of real;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
a[i]:=random(10)-1;
write (a[i],' ');
end;
for i:=1 to 10 do
begin
if a[i]>0 then a[i]:=2*a[i]
else if a[i]<0 then a[i]:=a[i]/2;
end;
writeln ();
for i:=1 to 10 do
write (a[i],' ');
end.



Для решения данной задачи, вам потребуется пройти по каждому элементу массива и изменить его значение в соответствии с условиями задачи. Все положительные элементы нужно увеличить в 2 раза, а отрицательные - уменьшить в 2 раза.
Вот пример кода на языке Python, который решает данную задачу:
```python def transform_array(arr): for i in range(len(arr)): if arr[i] > 0: arr[i] *= 2 elif arr[i] < 0: arr[i] /= 2 return arr
# Пример использования array = [1, -2, 3, -4, 5] new_array = transform_array(array) print(new_array) ```
В этом примере мы определяем функцию `transform_array`, которая принимает массив в качестве аргумента. Затем мы проходим по каждому элементу массива и изменяем его значение в соответствии с условиями задачи. Если элемент положительный, мы умножаем его на 2, а если отрицательный, делим на 2. В конце функция возвращает измененный массив.
В приведенном примере, исходный массив `[1, -2, 3, -4, 5]` будет преобразован в `[2, -1.0, 6, -2.0, 10]`.
Обратите внимание, что в данном примере мы использовали язык программирования Python. Если вам нужно решение на другом языке программирования, пожалуйста, уточните это.


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








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