Помогите, пожалуйста! Паскаль
Заполнить массив случайными числами в интервале [-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.

Только чтобы работало :D

В приведённой программе всё верно. Можно убрать i := 0; и вместо writeln(b[i]); написать write(b[i],' ');

Спасибо большое!)

Пожалуйста.

// PascalABC.NET 3.3begin var a:=ArrRandom(10,-10,10); writeln('Массив A:'); a.Println; var b:=a.Where(x->(x<0)and(x mod 2=0)).ToArray; writeln('Массив B:');  b.Println;end.Пример:Массив A:7 -4 -9 2 6 8 5 -10 8 8Массив B:-4 -10