Question

Сформулировать линейный массив из 9 элементов, значения которых вводится с клавиатуры. Все положительные числа массива заменить на 1, отрицательные на 0. Результат вывести ра экран

Answer 1

program raf105;

const

 n = 9;

var

 a: array[1..n] of integer;

 i: integer;

begin

 writeln('Заполните массив');

 for i:=1 to n do

 begin

   readln(a[i]);

   if a[i] > 0

     then a[i]:= 1

     else a[i]:= 0;

 end;

 write('Новый массив: ');

 for i:=1 to n do

   write(a[i],' ');

end.

PascalABC 3.4.2

Answer 2

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

pythonCopy code
# Создаем пустой массив размером 9 элементов
array = [0] * 9

# Вводим значения с клавиатуры и заполняем массив
for i in range(len(array)):
    try:
        array[i] = float(input(f"Введите значение элемента {i + 1}: "))
    except ValueError:
        print("Ошибка ввода. Пожалуйста, введите число.")

# Заменяем положительные числа на 1 и отрицательные на 0
for i in range(len(array)):
    if array[i] > 0:
        array[i] = 1
    else:
        array[i] = 0

# Выводим результат на экран
print("Результат:")
print(array)

Выполните эту программу, и она запросит у вас ввести 9 чисел с клавиатуры. Затем она заменит положительные числа на 1 и отрицательные на 0, а затем выведет измененный массив на экран.