Из массива A[1 .. N] получить массив В, в который войдут только отрицательные элементы массива А.

Вопрос школьника по предмету Информатика

Из массива A[1 .. N] получить массив В, в который войдут только отрицательные элементы массива А.

Ответ учителя по предмету Информатика

program lal;

const N=5;

var i,d:integer;

a:array[1..N] of integer;

b:array[1..N] of integer;

begin

d:=1;

for i:=1 to N do readln(a[i]);

for i:=1 to N do

begin

if a[i]<0 then

begin

b[d]:=a[i];

d:=d+1;

end;

end;

for i:=1 to d-1 do write(b[i],’ ‘);

end.