С клавиатуры вводятся массив из n целых чисел найти и вывести ** экран все отрицательные...

Question

С клавиатуры вводятся массив из n целых чисел найти и вывести на экран все отрицательные элементы массива

Answer 1

Begin
Readln(n)
For i:=1 to n do
Begin
Read(a[i]);
If a[i]<0<br>Then write(a[i],' ');
End;
End.