Question

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

Answer 1

var a:array [1..10] of integer;

i:integer;

begin

for i:=1 to 10 do

begin

write ('Введите ',i,' элемент массива: ');

readln (a[i])

end;

writeln('Исходный массив: ',a);

for i:=1 to 10 do if a[i]<0 then a[i]:=abs(a[i]);

writeln('Преобразованный массив: ',a)

end.

Answer 2

Для решения этой задачи, вы можете использовать язык программирования Python. Вот пример программы, которая выполняет указанные вами действия:

pythonCopy code
def main():
    # Создаем пустой массив
    a = []

    # Вводим элементы массива с клавиатуры
    for i in range(10):
        try:
            num = int(input(f"Введите элемент массива a[{i}]: "))
            a.append(num)
        except ValueError:
            print("Ошибка! Введите целое число.")

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

    # Выводим полученный массив
    print("Массив после преобразования:")
    print(a)

if __name__ == "__main__":
    main()

Программа запрашивает у пользователя ввод 10 целых чисел для создания массива a. Затем она проходит по всем элементам массива, и если элемент отрицателен, заменяет его на его модуль (абсолютное значение). После этого выводится итоговый массив с замененными элементами.

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