Вывести на экран массив из 10 случайных положительных и отрицательных чисел. сформировать и вывести на экран второй массив, состоящий из четных элементов первого массива, нечетные изменяются на 1

Program programma;

Uses crt;

Var i: integer;

a: array [1 ... 100] of integer;

begin clrscr;

randomize;

for i:=1 to 10 do

a[i]:=random (100) - 50;

for i:=1 to 10 do

write (a[i]:4) ;

writeln; writeln;

for i:=1 to 10 do

begin

if ((a[i] mod 2) = 0) then

write (a[i]:4)

else

begin a[i]:=1;

write (a[i]:4)

end;

end;

writeln; writeln;

end.