Question

Составить программу которая все отрицательные элементы массива удваивает а положительные утраивает. Пожалуйста...

Answer 1

//PascalABC.Net 3.2
begin
var a: array of integer;
setlength(a, readinteger('Введите размерность массива: ')); 
for var i:=0 to length(a)-1 do
begin
a[i]:=readinteger('Введите элемент: ');
if a[i]<0 then a[i]*=2 else a[i]*=3;
end;
write (a);
end.

Answer 2

Конечно, вот пример программы на языке Python, которая удваивает отрицательные элементы массива и утраивает положительные:

pythonCopy code
def modify_array(arr):
    for i in range(len(arr)):
        if arr[i] < 0:
            arr[i] *= 2
        elif arr[i] > 0:
            arr[i] *= 3
    return arr

# Пример использования
input_array = [1, -2, 3, -4, 5]
modified_array = modify_array(input_array)
print("Исходный массив:", input_array)
print("Измененный массив:", modified_array)

Просто вставьте этот код в вашу среду разработки, чтобы увидеть, как он работает. Вы можете также изменить input_array на свой массив для тестирования других входных данных.