1樓：a孤獨求敗
var m,i,min,min2:longint;
a:array[1..70]of longint;
begin
readln(m);
for i:=1 to 70 do read(a[i]); (讀入)min:=maxlongint;min2:=0;
for i:=1 to 70 do
if abs(a[i]-m)writeln(min2);(輸出)
end.
很簡單，學過迴圈就會了。不會就找我
2樓：
var m,i,k,k1:longint;
begin
readln(m);
read(k);
for i:=1 to 69 do
begin
read(k1);
if abs(k1-m)end;
readln;
writeln(k);
end.
3樓：
readln(m); k:=10000;
for i:=1 to 70 do
begin
read(t);
if abs(m-t)begin k:=abs(m-t); ans:=t; end;
end;
writeln(ans);
用差的絕對值來求
4樓：弘雅
5樓：匿名使用者
var m,i,j,ans:longint;
a:array[1..70] of lonint;
begin
readln(m);
j:=maxlongint;
for i:=1 to 70 do begin read(a[i]);
if abs(a[i]-m)ans:=a[i];
end;
end;
writeln(ans);
end.
關於PASCAL程式設計的幾道題的答案
第一題不理解，要整條的賣，又買出二分之一條？其他不難，晚點給你答案。4.var i,j,k integer begin for i 1 to 9 do begin k i if i 5 then k 10 i for j 1 to k 1 2 1 do write i writeln end end...
c語言迴圈結構為什麼輸出結果是，c語言迴圈結構為什麼輸出結果是
輸入 hello 之後有回車的吧，這個是 n 貢獻給other 輸入 12345 之後也有回車的，這個是 n 貢獻給other 輸入 之後，本身貢獻給other有4個 也有回車的，這個是 n 貢獻給other 輸入 之後也有回車的，但是因為首先 共享給other一個之後，while迴圈結束了，n 作...
C語言 用迴圈結構解以下題目
這種題目，我建議你還是自己解不要看參考書，磨刀不誤砍柴工，前期基礎悟好了，後面學起來會很快，可以先拿個筆自己畫畫，找出規律，一定要自己想出來 做出來，再看參考書，程式思維的真諦，我覺得在於分解和組合，看到複雜的題目不要急，分解了它，分成一塊塊，解決每一小塊，再找出塊於塊的聯絡，重組回一個整大塊，如果...