С клавиатуры вводятся массив из n целых чисел найти и вывести на экран все отрицательные элементы массива
С клавиатуры вводятся массив из n целых чисел найти и вывести на экран все отрицательные элементы массива
Гость
Ответ(ы) на вопрос:
ГостьBegin
Readln(n)
For i:=1 to n do
Begin
Read(a[i]);
If a[i]<0
Then write(a[i],' ');
End;
End.
Не нашли ответ?
Похожие вопросы