2. Дан линейный массив A[1..N], содержащий целые числа. Преобразовать элементы массива по следующему правилу: если элемент четный, прибавить к нему 1, если нечетный – умножить на два.
var a:array of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
readln (n);
write ('Массив: ');
a:=new integer[n+1];
for i:=1 to n do
a[i]:=random(89)+10;
write (a[i]:3,' ')
end;
writeln;
if a[i] mod 2 = 0 then a[i]:=a[i]+1
else a[i]:=a[i]*2;
end
end.