20 баллов даю!
Задача на программирование.
Срочно❣
(Решать в Паскале)!
Приложения:

politerhon:
Числа вводятся с клавиатуры или считываются с файла?
Ответы на вопрос
Ответил politerhon
0
Ответ:
Объяснение:
var i,pos,neg:integer;
z:array[1..4]of integer;
begin
for i:=1 to 4 do
begin
read(z[i]);
end;
for i:=1 to 4 do
begin
if (z[i] < 0) then
neg:=neg+1;
if (z[i] > 0) then
pos:=pos+1;
end;
if (pos>0) and (neg>0) then
write('YES')
else
write('NO');
end.
Новые вопросы