Question

Sa se aseze toate elementele egale cu o valoare v dintr-un sir

de n numere date, la sfarsitul sirurului. Pascal.

Answer 1

Răspuns:

program SL;

var sir1,sir2:array[1..100] of integer;

   n,i,v,pv,pdv:integer;

begin

writeln('Elementele sir');

write('n:');

readln(n);

for i:=1 to n do  begin

                 write('sir1[',i,']=');

                 readln(sir1[i]);

                 end;

writeln;

write('Valoarea');

readln(v);

pv:=0;pdv:=0;

for i:=1 to n do

       if (sir1[i]=v) then

               pv:=pv+1

                      else begin

                           pdv:=pdv+1;

                           sir2[pdv]:=sir1[i];

                           end;

for i:=1 to pv do  sir2[pdv+i]:=v;

writeln;

for i:=1 to pdv+pv do  write('sir2[',i,']=',sir2[i],' ');

readln;

end.