Question

Требуется написать программу уменьшения в два раза значение всех элементов массива, имеющих нечетные индексы

Answer 1

Program v1;
Var  i,n: integer; 
 mas: array[1..100] of real;
   mas1: array[1..100] of real;  Begin
  Write ('Сколько элементов вы хотите:'); 
 Readln(n); 
 For i := 1 to n do 
Begin 
mas[i] := Random(30); 
  Write (mas[i],' '); 
 End; 
 Writeln;   
 For i := 1 to n do
 if (i mod 2 = 1) then 
 Begin   mas1[i] := mas[i]/2; 
  Write (mas1[i],' '); 
  End;   
End.

Answer 2

Чтобы написать программу, которая будет уменьшать в два раза значение всех элементов массива с нечетными индексами, нужно выполнить следующие шаги:

1. Создать массив и заполнить его значениями. Например:

arr = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]

2. Создать цикл, который будет проходить по всем элементам массива с нечетными индексами.

for i in range(1, len(arr), 2):

3. Внутри цикла уменьшить значение текущего элемента в два раза.

arr[i] = arr[i] / 2

4. Вывести измененный массив.

print(arr)

Полный код программы будет выглядеть так:

arr = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]

for i in range(1, len(arr), 2):
    arr[i] = arr[i] / 2

print(arr)

Результат выполнения этой программы будет следующим:

[1, 1, 3, 2, 5, 3, 7, 4, 9, 5]

Значения всех элементов массива с нечетными индексами, то есть элементы с индексами 1, 3, 5, 7, 9, уменьшились в два раза.