Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Даны три целых числа. найти количество положительных и отрицательных в исходном наборе

Ответ оставил Гость

Если не разделять понятия неотрицательных и положительных, то этот код:
Var
A,B,C,P,O:integer;
Begin
P:=0;
O:=0;
WriteLn(Введи три числа);
ReadLn(A,B,C);
if A>=0 then P:=P+1
else O:=O+1;
if B>=0 then P:=P+1
else O:=O+1;
if C>=0 then P:=P+1
else O:=O+1;
WriteLn(Положительных чисел ,P);
WriteLn(Отрицательных чисел ,O)
End.

Если разделять, то этот:
Var A,B,C,P,O,N:integer;
Begin
P:=0;
O:=0;
N:=0;
WriteLn(Введи три числа);
ReadLn(A,B,C);
if A=0 then N:=N+1
else
 if A>0 then P:=P+1
 else O:=O+1;

if B=0 then N:=N+1
else
 if B>0 then P:=P+1
 else O:=O+1;

if C=0 then N:=N+1
else
 if C>0 then P:=P+1
 else O:=O+1;
WriteLn(Положительных чисел ,P);
WriteLn(Отрицательных чисел ,O);
WriteLn(Нулей ,N)
End.