👤
a fost răspuns

scrieti un program care elimina toate elementele nule dintr-un vector

Răspuns :

var a,b:array of integer;
i,n,s,p:integer;

begin
read(n);
setlength(a,n);
writeln;

for i:=0 to n-1 do begin
read(a[i]);
if a[i]<>0 then inc(s);
end;

setlength(b,s);

for i:=0 to n-1 do begin
if a[i]<>0 then begin
b[p]:=a[i];
inc(p);
end;
end;

writeln;
for p:=0 to s-1 do write(b[p],' ');
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