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

Question

Информатика

Васяй

5 июня, 14:41

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

+4

Ответы (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.