Question

se considera o secventa de (n<=100) numere reale. sa se scrie un program care calculeaza cite numere sunt pozitive, cite negative, si cite nule

Answer 1

Program Numere;

var i, a, b, c, n: integer;
r: real;
 
begin
 write ('Introduceti n: ');
readln (n);
write ('Introduceti ',n, ' numere: ');
for i:=1 to n do begin
readln (r);
if r<0 then a:=a+1;
if r>0 then b:=b+1;
if r=0 then c:=c+1;
end;

write ('Ati introdus ', a, ' numere mai mici decat zero, ', b, ' numere mai mari decat zero si ', c, ' numere egale cu zero.');
 readln;
 end.