Задача на паскале Задан массив А размерности N случайным образом.Нужно сформировать новый массив по следующему правилу:все чётные элементы разделить на 2, все нечётные оставить без изменения

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

program Arrays;

const
N = 10;

var
A, B: array[1..N] of integer;
i: integer;

begin
// заполняем массив А случайными числами
for i := 1 to N do
A[i] := Random(100);

// выводим массив А
writeln('Массив А:');
for i := 1 to N do
write(A[i], ' ');
writeln;

// формируем новый массив B
for i := 1 to N do
begin
if A[i] mod 2 = 0 then
B[i] := A[i] div 2
else
B[i] := A[i];
end;

// выводим массив В
writeln('Массив B:');
for i := 1 to N do
write(B[i], ' ');
writeln;
end.