4．program Programg4；
　 var m，n，i，j：integer；
　　　 p，w，a，b：array[0．．19] of integer；
　 begin
　　 read(n)； m：= 0；
　　 for i：= 0 to n-1 do
　　 begin read (p)； b ：=1； end；
　　 for i ：= 0 to n-1 do
　　　 begin
　　　　 if (i>0) then
　　　　 a[m]：= p-p[i-1]
　　　　 else
　　　　 a[m]：= p；
　　　　 m：= m+1：
　　　　 while ((m>1) and (a[rn-1]=0)) do
　　　　 begin m ；= m-1； b[m] ：= l； end；
　　　　 if (m>0) then
　　　　　 w：=b[m-1]
　　　　 else
　　　　　 w：=b[0]；
　　　　　 a[m-1] ：= a[m-1]-1；
　　　　　 for j ：= 0 to m-1 do b[j] ；= b[j]+1；
　　　　　 while ((m>1) and (a[m-1]=0)) do
　　　　　 begin
　　　　　　 m ：= m-1； b[m] ：=1；
　　　　　 end;
　　　　end;
　　　　for i ：= 0 to n-1 do
　　　　 begin
　　　　　 write(w)； write(' ');
　　　　 end；
　　　　writeln(' ')；
end．
　　输入：9
　　4 6 6 6 6 8 9 9 9
　　输出：　　　　



帮忙算算
P.S 我不懂,我是帮人问的

好渣的程序
1.全是全角符号
2.分号 引号 混淆
3.缩进混乱
?.论坛放盗链的尾巴(这个不怪LZ)

i 与 l 混淆
m 与 rm 混淆
平白多出2个未定义变量变量

以上这些我还是可以给改的.

p,w和b都是数组 这些操作都无法完成
a[m]:= p-p[i-1]
b :=1;
a[m]:= p;
w:=b[m-1]
w:=b[0];
LZ还是把程序改好再拿出来吧.

read和write这2个函数应该和我的编译系统不兼容.
这个无所谓 毕竟是要人出答案


底下编译的信息

DBLobster@MAYOMI /mingw/bin
$ gpc -c 123.pas
123.pas: In main program:
123.pas:12: argument to `Read' is of wrong type
123.pas:13: incompatible types in assignment
123.pas:18: invalid operands to `-'
123.pas:18: invalid operands to `-'
123.pas:20: incompatible types in assignment
123.pas:28: incompatible types in assignment
123.pas:30: incompatible types in assignment
123.pas:41: argument to `Write' is of wrong type

源文件我贴上了 找有 TurboPascal 的试试编译吧.