Вот если 1 число или более
#include <iostream>
#include <vector>
using namespace std;
int main()
{
vector<int> a;
bool flag = false;
int n;
cin >> n;
a.resize(n);
for (int i = 0; i < n; ++i) {
cin >> a[i];
}
for (int i = 0; i < n; ++i) {
if (a[i] < 0) {
flag = true;
break;
}
}
if (flag)
cout << "YES";
else
cout << "NO";
return 0;
}
Вот если 2 или более
#include <iostream>
#include <vector>
using namespace std;
int main()
{
vector<int> a;
bool flag = false;
int n, cnt = 0;
cin >> n;
a.resize(n);
for (int i = 0; i < n; ++i) {
cin >> a[i];
}
for (int i = 0; i < n; ++i) {
if (a[i] < 0) {
cnt++;
if (cnt == 2) {
flag = true;
break;
}
}
}
if (flag)
cout << "YES";
else
cout << "NO";
return 0;
}
Uses crt;
var a : array [1..10, 1..10] of integer ;
i,j,n,m:byte;
min,s:integer;
begin
s:=1;
randomize;
writeln('Введи кол-во строк(<10)');
readln(n);
writeln('Введи кол-во столбцов(<10)');
readln(m);
for j:=1 to m do
for i:=1 to n do begin
a[i,j]:=random(100);
gotoxy((i-1)*5+1,j+5);
writeln(a[i,j]);
end;
for i:=1 to m do begin
min:=a[1,i];
for j:=1 to n do if a[j,i]<min then min:=a[j,i];
gotoxy((i-1)*3+1,i+12);
write('min в ',i,' строке равен ',min);
s:=min*s;
end;
gotoxy(1,23);
writeln(s);
<span>end.</span>
<span>106
function f(x: integer): integer;
var
L, M: integer;
begin
L := x - 12;
M := x + 12;
while L <> M do
if L > M then
L := L - M
else
M := M - L;
f := L;
end;
begin
var x := 100;
var r := 0;
repeat
x := x + 1;
r := f(x);
until r = 2;
writeln(x);
end.
</span>
Uses GraphABC;
begin
line(300,50,300,450);
line(150,250,550,250);
line(300,50,295,60);
line(300,50,305,60);
line(550,250,540,245);
line(550,250,540,255);
<span>end.</span>
Var
a, Summ:integer;
begin
write ('Введите число ');
readln (a);
Summ : = 0;
while a > 0 do
begin
Summ : = Summ + a mod 10;
a : = a div 10;
end;
writeln ('Сумма цифр равна ', Summ);
end.