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/11/08 17:12:17

Vara:array[1..10]ofinteger;j,i:integer;begina[i]:=a[i]+i;forj:=1toidoa[j]:=a[i]+j;.Vara:array[1..10]

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.