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