输入一个正整数n(1<n<=10),再输入n个整数存入一维数组,按逆序重新存放数

dim d() as integer
dim n as integer
dim i as integer
dim j as integer
dim temp as integer
'输入一个正整数n(1n = Val(InputBox("输入一个正整数[2,10]："))
Do While n < 2 Or n > 10
n = Val(InputBox("输入一个正整数[2,10]：", "输入错误，请重新输入！"))
Loop

ReDim d(n)
'输入n个正整数保存到数组
For i = 1 To n
d(i) = Val(InputBox("输入第" & i & "数据："))
Next i

'逆序重新存放
For i = 1 To n - 1
temp = d(n)
For j = n To i + 1 Step -1
d(j) = d(j - 1)
Next j
d(i) = temp
Next i

'输出
For i = 1 To n
Print d(i),
Next i
Print

#include
void main( )
{
int ri,repeat;
int a[10];

scanf("%d", &repeat);

for(ri=0; ri scanf("%d", &a[ri]);

for(ri=repeat-1; ri>=0; ri--)
printf("%d ", a[ri]);

printf("\n");
}

先说明编程语言。