Дан числовой массив А, состоящий из n целых чисел . Если все элементы массива являютя чётными, то увеличьте положительные элементы

[Pantiks]

Дан числовой массив А, состоящий из n целых чисел . Если все элементы массива являютя чётными , то увеличьте положительные элементы в два раза , а отрицательные уменьшить в три . Напишите полностью ))

[unbanned]

const
  N = 5;

var
  a: array [1..N] of real;
  even: boolean;
  i: integer;

begin
  
  even := true;
  for i := 1 to n do 
    if trunc(a[i]) mod 2 <> 0 
    then 
    begin
      even := false;
      break;
    end;
  
  if even then 
    for i := 1 to n do 
    begin
      if a[i] > 0 then a[i] := 2 * a[i];
      if a[i] < 0 then a[i] := a[i] / 3;
    end;
  
end.

здесь нету только ввода/вывода массива... сделаете сами.

указано что массив состоит из целых чисел, но не указано что он должен быть целочисленный...
массив взял вещественный... т.к. в вещественный массив можно целые числа ввести, а вот в целочисленный массив вещественные числа не получится, а по заданию необходимо будет делить...