nule.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 33 行

program rearanjare;
{se da un vector cu elemente cifre intregi,dintre care mai multe nule.
Sa se rearanjeze vectorul a.i. nulele sa fie pe ultimul loc.}
var i,j,l,n,z,t:integer;
    a,b:array[1..100] of integer;
begin
writeln('Nr. de elemente ale vcectorului este');
read(n);
j:=1;
l:=0;
for i:=1 to n do
    begin
         write('a[',i,']= ');
         readln(a[i]);
         if a[i]=0 then
                       begin
                            b[j]:=a[i];
                            j:=j+1;
                       end
         else
             begin
                  l:=l+a[i];
                  l:=l*10;
             end;
    end;
repeat
      t:=l*10+b[j];
      j:=j-1;
until j=1;
if a[n]=0 then t:=t*10;
writeln('Numarul dupa rearanjare este ',t);
end.