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

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

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

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

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

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