1樓：匿名使用者
很高興回答lz的問題！
以下是本人的做法
program sweets;
vara,b:array[1..5] of longint;
sum,i:integer;
begin
for i:=1 to 5 do
begin
read(a[i]);
sum:=sum+a[i] mod 2;
b[i]:=a[i] div 2;
end;
a[1]:=b[5]+b[2];
for i:=2 to 4 do a[i]:=b[i-1]+b[i+1];
a[5]:=b[4]+b[1];
for i:=1 to 5 do write(a[i],' ');
writeln;
write(sum);
end.
樣例輸入
1 2 3 4 5
樣例輸出
3 1 3 3 2
3有什麼不明白可以追問
2樓：
vara,ans:array[1..5] of longint;
i:longint;
function fp(x:longint):longint; //判斷是否越界
begin
if x=0 then exit(5)
else if x=6 then exit(1)
else exit(x);
end;
begin
for i:=1 to 5 do //讀入
read(a[i]);
for i:=1 to 5 do //進行分配
begin
inc(ans[fp(i-1)],a[i] div 2);
inc(ans[fp(i+1)],a[i] div 2);
end;
for i:=1 to 5 do write(ans[i],' ');//輸出
end.
同志們吶 煙鬼們,進來回答一下，同志們吶 煙鬼們,進來回答一下
我教你一招，我同學就是這麼戒菸的，他覺得很好用！方法呢有點極端 就是1.先點一根菸，吸到嘴裡，閉著嘴含一會再吐出來，但別經過肺和鼻腔！就是假抽菸 鼓煙 嘴裡吸嘴裡吐 這樣才不傷身體，這一點對下面的步驟極為重要！2.一根抽完後，別停，再點再抽！連抽個10根8根直到嘴裡發苦看著煙就噁心為止！3.然後你就...
同志們2首好聽的歌把，同志們推薦2首好聽的歌把
勿忘心安 女生 先聽這兩首吧，要的話可以找我 因為我腦子不好 那個男人的謊言 默默哭泣 i belive 後面的都是日韓的 有很多如果是我推薦 我就會說羅志祥的 愛轉角 高調愛 小丑魚 撐腰 等 小豬的歌很棒的你也聽聽吧 也有別人的介紹 飛兒樂團 你的微笑 我要飛 你去聽聽吧 大多不是新歌 但都不錯...
小孩發燒？？看清我的問題啊同志們
用藥指南 小孩發燒不用太緊張 嬰兒發燒，長大不容易過敏 一發燒，人們就會下意識地找退燒藥，尤其是小孩一發燒，會把大人急得團團轉。可實際上，體溫高一點不一定是壞事。發燒是指體溫比標準體溫 37攝氏度 高出至少1攝氏度。美國免疫學家瓊斯博士認為，37攝氏度是平均口腔溫度，稍微升高一點沒什麼了不起，因為體...