C++
#include <iostream>#include <vector>int main () { int a, b, c; std::cin >> a >> b >> c; std::vector list {a, b, c}; bool is_it_correct = std::find_if(list.begin(), list.end(), [](auto el){ return el > 0; }) != list.end() && std::find_if(list.begin(), list.end(), [](auto el){ return el < 0; }) != list.end(); if (is_it_correct) std::cout << "YES" << std::endl; else std::cout << "NO" << std::endl;}
var a: array [1..N] of integer;
i,j,s,d,b: integer;
begin
s:=0;
j:=0;
for i:=1 to N do readln(a[i]);
for i:=1 to N do
if a[i] < 0 then
begin
s:=s+1;
end
else
j:=j+1;
if j = 0 then
begin
writeln('положительных чисел нет');
end
else
if s = 0 then
begin
writeln('отрицательных чистел нет');
end
else
begin
if j > s then
begin
d:=j-s;
writeln('положительных больше на ' + d);
end
else
begin
b:=s-j;
writeln('отрицательных больше на ' + b);
end
end
end.