Question

Дан массив A [1 .. 20] целого типа .составить программу замены отрицательных элементов на 0, положительных на 1

Answer 1

//Создаем переменные
var  A: array[1..20] of integer;
i: integer;

begin
//Записываем рандомные значения в массив A
for i := 1 to 20 do
A[i] := random(-10, 10); //Указываем границы рандома (от -10 до +10 в данном случае)
//Проверяем числа массива
for i := 1 to 20 do
begin
if A[i] < 0 then A[i] := 0
else A[i] := 1;
end;
{writeln(A);}
end.

Answer 2

Замена отрицательных и положительных элементов в массиве

Для замены отрицательных элементов на 0 и положительных на 1 в заданном массиве A [1..20] целого типа, можно использовать следующую программу:

A = [1, -2, 3, -4, 5, -6, 7, -8, 9, -10, 11, -12, 13, -14, 15, -16, 17, -18, 19, -20]

for i in range(len(A)):
    if A[i] < 0:
        A[i] = 0
    else:
        A[i] = 1

print(A)

В этой программе мы проходим по каждому элементу массива `A` с помощью цикла `for`. Если элемент меньше нуля, то мы заменяем его на 0, иначе заменяем на 1. В конце выводим измененный массив `A`.

Пример вывода: ``` [1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0] ```

Таким образом, отрицательные элементы заменены на 0, а положительные на 1.

Надеюсь, это помогло! Если у вас есть еще вопросы, не стесняйтесь задавать.