Каждый элемент массива уменьшить в 2 раза Паскаль

Предыдущий
вопрос Следующий
вопрос

Для этого нужно пройти циклом по каждому элементу массива и умножить его на 0.5 (или разделить на 2).

Пример кода на Pascal:

program HalfArray
va
arr: array[1..5] of Integer
i: Integer
begi
arr[1] := 10
arr[2] := 20
arr[3] := 30
arr[4] := 40
arr[5] := 50
for i := 1 to 5 d
begi
arr[i] := arr[i] div 2; // умножаем элемент на 0.5 (делаем целочисленное деление на 2
end
for i := 1 to 5 d
begi
Write(arr[i], ' ')
end
end.

Этот код создает массив из 5 элементов и уменьшает каждый элемент в 2 раза. Результат будет выведен на экране.