Question

Помогите пожалуйста. 1)Cоставить программу удвоения каждого элемента массива A(n) порядковый номер которого кратен 3 2)Дан массив А(n) целых чисел,каждый третий элемент массива заменить на его порядковым номером.Вывести массив на печать.

Answer 1

1) program array;

var A : array[1..10000] of integer;

   i:integer;

begin

for i:=1 to length(A) do begin

   if i mod 3 = 0 then

       A[i]:=A[i]*2;

end;

end.

-----------------------------------

2) program fff;

var A : array[1..100] of integer;

   i,n:integer;

begin

for i:=1 to n do begin

   if i mod 3 = 0 then

       A[i]:=i;

end;

end.

Answer 2

Конечно, помогу! Ниже представлены программы на языке программирования Python для каждой из ваших задач:

1. Программа удвоения каждого элемента массива A(n), порядковый номер которого кратен 3:

pythonCopy code
def double_elements_by_index(arr):
    for i in range(len(arr)):
        if (i + 1) % 3 == 0:
            arr[i] *= 2
    return arr

# Пример использования:
A = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
result = double_elements_by_index(A)
print(result)  # Выведет: [1, 2, 6, 4, 5, 12, 7, 8, 18, 10]

2. Программа для замены каждого третьего элемента массива А(n) на его порядковый номер:

pythonCopy code
def replace_third_elements_with_index(arr):
    for i in range(2, len(arr), 3):
        arr[i] = i // 3 + 1
    return arr

# Пример использования:
A = [10, 20, 30, 40, 50, 60, 70, 80, 90]
result = replace_third_elements_with_index(A)
print(result)  # Выведет: [10, 20, 1, 40, 50, 2, 70, 80, 3]

Обратите внимание, что в обоих случаях индексы в программе начинаются с 0. Если ваш язык программирования индексирует массивы с 1, то просто измените (i + 1) на i в первой программе, и i // 3 + 1 на (i + 1) // 3 во второй программе.