напишите программку которая вводит с клавиатуры естественное число n и после

Напишите программку которая вводит с клавиатуры натуральное число n и после этого вводит еще n целых чисел после этого программка выводит находится ли посреди введеных чисел хотя бы одно отрицательное число yes no

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadSeqInteger('Вводите:',ReadInteger('n=')).Any(x-gt;xlt;0))
end.

Образцы
n= 5
Вводите: 6 -4 56 34 0
True

n= 3
Вводите: 67 9453 457
False
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт