Răspuns :
Răspuns:
nu am folosit tablou deoarece nu consider necesar, dar fac acum şi varianta cu tablou...
Explicație:
**************** varianta 1, fără tablou *******************
program alernareSemne;
var n,a,b,i,alt:integer;
begin
write('n='); read(n);
writeln('introdu ',n,' numere intregi: ');
read(a);
alt:=0;
for i:=2 to n do
begin
read(b);
if (a*b<0) then alt:=alt+1;
a:=b;
end;
writeln(alt, ' alternari de semne');
end.
******************** varianta 2, cu tablou *****************
program alernareSemne2;
var n,i,alt:integer;
a:array[1..1000] of integer;
begin
write('n='); read(n);
writeln('introdu ',n,' numere intregi: ');
for i:=1 to n do
read(a[i]);
alt:=0;
for i:=1 to n-1 do
begin
if (a[i]*a[i+1]<0) then alt:=alt+1;
end;
writeln(alt, ' alternari de semne');
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.