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

Question

Информатика

Парфентий

16 сентября, 10:14

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

+3

Ответы (1)

Знаете ответ?

Ксеша · Answer 1

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.