Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+i; for j:=1 to i do a[j]:=a[i]+j; .Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+i;for j:=1 to i do a[j]:=a[i]+j;end;for i:=1 to 10 do write(a[i],' ');eod.
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 18:29:35
![Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+i; for j:=1 to i do a[j]:=a[i]+j; .Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+i;for j:=1 to i do a[j]:=a[i]+j;end;for i:=1 to 10 do write(a[i],' ');eod.](/uploads/image/z/12751154-26-4.jpg?t=Var+a%3Aarray%5B1..10%5Dof+integer%3B+j%2Ci%3Ainteger%3B+begin+a%5Bi%5D%3A%3Da%5Bi%5D%2Bi%3B+for+j%3A%3D1+to+i+do+a%5Bj%5D%3A%3Da%5Bi%5D%2Bj%3B+.Var+a%3Aarray%5B1..10%5Dof+integer%3B+j%2Ci%3Ainteger%3B+begin+a%5Bi%5D%3A%3Da%5Bi%5D%2Bi%3Bfor+j%3A%3D1+to+i+do+a%5Bj%5D%3A%3Da%5Bi%5D%2Bj%3Bend%3Bfor+i%3A%3D1+to+10+do+write%28a%5Bi%5D%2C%27+%27%29%3Beod.)
Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+i; for j:=1 to i do a[j]:=a[i]+j; .Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+i;for j:=1 to i do a[j]:=a[i]+j;end;for i:=1 to 10 do write(a[i],' ');eod.
Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+i; for j:=1 to i do a[j]:=a[i]+j; .
Var a:array[1..10]of integer;
j,i:integer; begin
a[i]:=a[i]+i;
for j:=1 to i do a[j]:=a[i]+j;
end;
for i:=1 to 10 do write(a[i],' ');
eod.
Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+i; for j:=1 to i do a[j]:=a[i]+j; .Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+i;for j:=1 to i do a[j]:=a[i]+j;end;for i:=1 to 10 do write(a[i],' ');eod.
程序明显不完整.
上来没有i值,就直接用.
把完整程序发上来吧!