Question

Составьте программу, которая организует ввод массива а[1....10] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их модулями.

Answer 1

Var a:array[1..10] of integer; i:integer; begin for i:=1 to 10 do begin readln(a[i]); if a[i]<0 then a[i]:=abs(a[i]); end; for i:=1 to 10 do writeln(a[i]); end.

Answer 2

Программа, которая организует ввод массива a[1....10] с клавиатуры и заменяет все отрицательные элементы их модулями, может быть следующей:

# Создаем пустой массив a
a = []

# Вводим элементы массива с клавиатуры
for i in range(10):
    num = int(input("Введите элемент массива: "))
    a.append(num)

# Заменяем отрицательные элементы их модулями
for i in range(10):
    if a[i] < 0:
        a[i] = abs(a[i])

# Выводим преобразованный массив
print("Преобразованный массив:")
for i in range(10):
    print(a[i])

В этой программе мы сначала создаем пустой массив `a`. Затем, с помощью цикла, вводим 10 элементов массива с клавиатуры и добавляем их в массив `a`. Далее, с помощью еще одного цикла, проходим по всем элементам массива и проверяем, является ли элемент отрицательным. Если элемент отрицательный, то заменяем его на его модуль с помощью функции `abs()`. В конце программы выводим преобразованный массив на экран.