Массив a[1..15] заполняет случайными четными числами в диапазоне от -10 до 10 за тем переобразовывать массив заменяя каждый отрицательный массив на 0 . и подсчитать все эти отрицательные элементы и заменить их на 0.

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := SeqRandom(10000, -10, 10).Where(t -> t.IsEven)

     .Take(15).ToArray;

 a.Println;

 a.Where(t -> t < 0).Count.Println;

 a.Transform(t -> t < 0 ? 0 : t);

 a.Println

end.

Пример-6 10 2 4 -2 -4 2 2 10 -10 -6 -8 -8 2 -68 0 10 2 4 0 0 2 2 10 0 0 0 0 2 0

const n=15;

var a:array [1..n] of integer;

i,k:integer;

begin

for i:=1 to n do

begin

a[i]:=random(21)-10;

if a[i] mod 2 <> 0 then a[i]:=a[i]+1

end;

writeln('Исходный массив: ',a);

for i:=1 to n do

if a[i] < 0 then

begin

a[i]:=0;

k:=k+1

end;

writeln('Преобразованный массив: ',a);

writeln('Отрицательных элементов было: ',k)

end.