Răspuns :
heyy,sper ca e bine !
RASPUNS :
program Numere;
var
A: array [1..100] of integer;
i, n, poz, neg, nul: integer;
begin
poz := 0;
neg := 0;
nul := 0;
write('n : ');
readln(n);
for i := 1 to n do
begin
readln(A[i]);
if A[i] > 0 then
poz := poz + 1
else if A[i] < 0 then
neg := neg + 1
else nul := nul + 1;
end;
writeln('Pozitive : ' + poz + ' Negative : ' + neg + ' Nule : ' + nul);
end.
Vă mulțumim că ați vizitat site-ul nostru web care acoperă despre Informatică. Sperăm că informațiile furnizate v-au fost utile. Nu ezitați să ne contactați dacă aveți întrebări sau aveți nevoie de asistență suplimentară. Ne vedem data viitoare și nu ratați să marcați.