?? nule.pas
字號(hào):
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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -