Question

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

Answer 1

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.