1樓：聽不清啊
既然1已經用來表示障礙，那就用-1表示有1種方案，-2表示有2種方案，……。
var a:array[0..100,0..100]of integer;
n,m,i,j:integer;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
if a[1,1]=1 then begin writeln(0); exit end
else a[1,1]:=-1;
for i:=1 to m do
for j:=1 to n do
if a[i,j]=0 then
begin
if a[i-1,j]<0 then inc(a[i,j],a[i-1,j]);
if a[i,j-1]<0 then inc(a[i,j],a[i,j-1]);
end;
writeln(-a[m,n]);
end.
2樓：匿名使用者
程式完成如下：
var a:array[0..10000]of integer;
n,i,x:integer;
begin
read(n);
for i:=1 to n do
begin
read(x);
inc(a[i]);
end;
for i:=0 to 10000 do
if a[i]>0 then writeln(i,' ',a[i]);
end.
PASCAL程式設計求出，Pascal程式設計求急
pascal程式設計求急 1 簡單判斷。varscore longint beginreadln score 讀入成績if score 85 then writeln very good 判斷是否高於85分。elsebegin if score 60 then writeln bad 判斷是否地獄6...
求程式設計高手進解答這個程序，求程式設計高手進 解答這個程式
預定義一個方法 ring shift left 方法中有兩個引數 byte,val 下面表示式計算步驟如下 8 val byte 8 val 最後計算按位或。希望對你有幫助 這個是巨集 define ring shift left byte,val byte 8 val 將文件有ring shift...
求戀愛大師，求戀愛大師來解答
安慰啊發簡訊吧 但是你要是喜歡她 就不要現在表白 女生被傷害以後 傷疤會很深的 就算他喜歡你 也不會接受你的 因為她被傷了 不敢再去愛了 你要多鼓勵他 說就算你失戀了還會有我這樣的朋友安慰你之類的話先建立起朋友關係 等她想開了 你和幾個朋友 帶上他最好的幾個女生 去遊樂場帶她去玩玩 之後她要是徹底想...