Массив a[1..15] наполняет случайными четными числами в спектре от -10 до

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

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

     .Take(15).ToArray;

 a.Println;

 a.Where(t -gt; t lt; 0).Count.Println;

 a.Transform(t -gt; t lt; 0 ? 0 : t);

 a.Println

end.

Пример

-6 10 2 4 -2 -4 2 2 10 -10 -6 -8 -8 2 -6

8

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 lt;gt; 0 then a[i]:=a[i]+1

end;

writeln('Начальный массив: ',a);

for i:=1 to n do

if a[i] lt; 0 then

begin

a[i]:=0;

k:=k+1

end;

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

writeln('Отрицательных частей было: ',k)

end.