作业帮 > 综合 > 作业

Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+

来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/11/12 23:44:12
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值,就直接用.
把完整程序发上来吧!
program Noname0; const n=7; var a:array[1..n] of integer; i, var i,j:integer; begin for i:=1 to 5 do begin for j:=1 to i vb程序Dim a(1 To 20) As Integer,i As Integer,j As Integer Dim a(9) As Integer,x As Integer,k As Integer,I As Integer R Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = dim a(10,10) as integer for i=1 to 10 for j=1to 10 a(i,j)=i* 翻硬币问题分析var m:integer;function solve(m:integer):integer;var i program lx2 Var a,b,c:integer; Begin read(a,b); c:=a; a:=b; DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT F 能不能再帮我看一道题sum Fun (a() as integer,x as integer) for i = 1 to 英语翻译2、vara,b:integer;functionwork(a,b:integer):integer;begin 若有二维数组a的说明：var a:array[0..m,0..n]； 则计算数组a的任意元素a[i][j]在数组中的位置