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

Вопрос от пользователя: Семион

Дан одномерных массив содержащий 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.