Паскаль!!
Заполнить массив случайными числами в интервале [-10,10] и отобрать в другой массив все чётные отрицательные числа.
Пример:
Массив А:
-5 6 7 -4 -6 8 -8
Массив B:
-4 -6 -8

к сожалению, не все отрицательные числа из списка выбирает

Нет, все правильно, извините! Спасибо вам!!!

uses crt;const  n = 10;var   a,b : array[1..n] of integer;  i,j : integer;begin  randomize;  i := 0;  j := 0;  for i := 1 to n do  begin    a[i] := random(21)-10;    write(a[i],' ');       end;  writeln;  for i := 1 to n do    if (a[i] < 0) and (a[i] mod 2 = 0) then     begin       j := j+1;       b[j] := a[i];    end;  for i := 1 to j do    writeln(b[i]);  readln;end.