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

Var

a:array[1 ... 10000000] of real;

b:array[1 ... 10000000] of real;

n, i:integer;

c:real;

begin

write ('Размер массива - ') ;

readln (n) ;

write ('Заполните массив - ') ;

for i:=1 to n do

read (a[i]) ;

for i:=1 to n do

begin

b[i]:=a[i] * (-1) ;

write (b[i],' ') ;

end;

end.