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

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

begin
  Writeln(ReadSeqInteger(Вводите:,ReadInteger(n=)).Any(x->x<0))
end.

Примеры
n= 5
Вводите: 6 -4 56 34 0
True

n= 3
Вводите: 67 9453 457
False

var i,n,k,a:integer;
begin
k:=0;
readln(n);
for i:=1 to n do
begin
read(a);
if a<0 then k:=k+1 ;
end;
if k>=1 then writeln('yes') else writeln('no');
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.