Все четные положительные элементы целочисленного массива уменьшить вдвое, все нечетные положительные увеличить на 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.