Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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