Question

2. Дан линейный массив A[1..N], содержащий целые числа. Преобразовать элементы массива по следующему правилу: если элемент четный, прибавить к нему 1, если нечетный – умножить на два.

Answer 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

begin

a[i]:=random(89)+10;

write (a[i]:3,'  ')

end;

writeln;

write ('Массив: ');

for i:=1 to n do

begin

if a[i] mod 2 = 0 then a[i]:=a[i]+1

else a[i]:=a[i]*2;

write (a[i]:3,'  ')

end

end.