Заполнить массив случайными числами в интервале [-10,10] и отобрать в другой массив все чётные отрицательные числа.
С#

Ответ:

uses Crt;

const k = 15;

var a, b : array[1..k] of integer;

n, m : integer;

begin

ClrScr;

Randomize;

m:=0;

for n:=1 to k do

begin

a[n]:=Random(21) - 10;

write(a[n]:4);

if (a[n]<0) and not Odd(a[n]) then

begin

inc(m); b[m]:=a[n];

end;

end;

writeLn;

for n:=1 to m do

write(b[n]:4);

readLn;

end.