Задай одномерный массив Х [1..15]. Найти сумму четных положительных частей массива,

Интервал [-9,,5] ?

(-10)5]

От -10(не включительно) до 5-ти включительно?

да

Var
  X: array [1..15] of integer;
  i, sum: byte;
begin
sum := 0;
randomize;
writeln(' *** Исходный массив ***');
for i := 1 to 15 do
begin
  X[i] := random(15)-9;
  if ((X[i] gt; 0) and (X[i] mod 2 = 0)) then
    sum := sum + X[i];
  write(X[i],' ');
end;
writeln;
writeln('Сумма положительных четных = ', sum);
readln;
end.