👤
AYMARLAZCANIOZE
a fost răspuns

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

Răspuns :

ANGELICUSZE
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.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și vă încurajăm să ne salvați în lista de favorite!


Ze Questions: Alte intrebari