👤
GABI1451EZ
a fost răspuns

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

Răspuns :

CORPACEANREZ
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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari