1樓：匿名使用者
program example;
vari,j,tmp:integer;
a:array[1..1000]of integer;
begin
for i:=1 to 10 do
read(a[i]);
j:=1;
for i:=2 to 10 do
if a[i]then
j:=i;
tmp:=a[1];
a[1]:=a[j];
a[j]:=tmp;
for i:=1 to 10 do
write(a[i],' ');
readln;
end.
利用標號法
2樓：
program dh;
var n,i,x,t:integer;
a:array[1..10] of integer;
begin n:=10;
for i:=1 to n do
read(a[i]);
j:=1;
for i:=2 to 10 do
if a[i]t:=a[j];
a[j]:=a[1];
a[1]:=t;
for i:=1 to n do write(a[i],#32);
end.
請各位高手幫忙，請各位高手幫忙
肥豬肥豬肥豬肥 我的選擇 融通深證100，廣發聚富 嘉實300本來也不錯，但是由於規模太大了，導致表現不如以前了。其他不瞭解。請各位高手幫忙 20 糖 科技發bai展的利與弊 結論 科技的du 發展固然重要，但zhi不能dao在能合理正常使專用的前提去發展，發展首先屬得淨化思想，只有沒個人的思想和心...
請各位幫忙取名，請各位大神幫忙取名？
慕頭槓精 取名字是有講究的。作為新時代的中國人，應該摒棄迷信，什麼命裡缺水五行缺火的都沒意思，名字的講究更多應該考慮將來孩子在學習和社會中的便利。回想一下你總能記住的那些人的名字都有些什麼特點。當下名字都是紫萱梓軒紫萱的，本來想清新脫俗卻反而落了俗套。我們取名字要順口，不能有奇怪的諧音，孩子們取外號...
請各位幾部小說，請各位推薦幾部小說
斯豁迷谷 懸疑探險型別的，寫的不錯可以去看看。 青春逃亡 觸不到的戀人 抹不去的悲傷 不想分手 狼的 韓熙載夜宴 主要內容簡介 傳世名畫 韓熙載夜宴圖 神韻獨出，令世人驚歎，韓熙載夜宴 由此講述了一個撲朔迷離的曲折故事。在南唐名臣韓熙載舉辦的一場豪門夜宴中，發生了一樁離奇 那一晚，一位年輕美貌的女子...