Question

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

Answer 1

Var a:array [ 1.. 100] of real;
i, k, n, t, r: integer;
begin
readln (n);
for I: = 1 to n do read ( a [I] ) ;
for i:= 1 to n do begin
if a [i] > 0 then k:=k+1;
If a [i]<0 then t:=t+1;
If a [i]<> 0 then r:=r+1;
End;
Write ('mai mari ca 0 ', k,'  mai mici ca 0 ', t,'  nenule ', r);
End.