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.
PASCAL
Prin instrctiele:FOR,WHILE,REPEAT!

Answer 1

Răspuns:

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.

Sper ca te-am ajutat cu ceva:) m-am grabit

Explicație: