Дан одномерных массив содержащий n элементов и заполненный с клавиатуры. Сформулируйте новый массив из отрицательных элементов исходного массива

program zz1;

var i, j, n:integer;

a, b:array[1 ... 100] of integer; / /заводим два массива

begin

read (n); / / вводим заданное количество чисел n

for i:=1 to n do / /заполняем массив числами с клавиатуры через пробел

read (a[i]);

for i:=1 to n do

if a[i] <0 then begin j:=j+1; b[j]:=a[i]; end; / /проверяем, если число из массива а отрицательное, то считаем его номер и записываем в массив b

for i:=1 to j do / /по окончанию предыдущего цикла, переменная j хранит количество отрицательных чисел из массива а

write (b[i],' '); / /выводим ответ

end.