Все четные положительные элементы целочисленного массива уменьшить вдвое, все нечетные положительные увеличить на 2, а у всех остальных поменять знак.

Var i, k:integer;

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

begin

for i:=1 to 30 do

begin

a[i]:=random (30) - 15;

if (a[i]>0) and (a[i] mod 2 = 0) then a[i]:=a[i] div 2;

if (a[i]>0) and (a[i] mod 2 0) then a[i]:=a[i]*2;

if a[i]<0 then a[i]:=a[i]*-1;

end;

for i:=1 to 30 do writeln (a[i]) ;

end.