اجرای حلقه

[hamedeb2012]

سلام
یه برنامه با پاسکال دارم توش یه مشکل دارم
می خوام با دستور write عبارت please enter x of 10 number چاپ بشه و با اجرا شدن حلقه متغییر x از یک تا 10 افزایش پیدا کنه کد هم به صورت زیر نوشتم

for i:=1 to 10 do
begin
write('please enter',i,'of 10 numbers');
read(n[i]);
writeln;
end;


ولی مشکل داره
لطفا کمک کنید

[BORHAN TEC]

سلام
این کد رو توی دلفی نوشتم ولی به احتمال زیاد بدون تغییر در پاسکال هم کار میکنه:
var
i: Integer;
n: array [1 .. 10] of Integer;

begin
for i := 1 to 10 do
begin
write('please enter ', i, ' of 10 numbers:');
read(n[i]);
writeln;
end;

writeln('=================================');

for i := 1 to 10 do
begin
writeln('n[', i, '] = ', n[i]);
end;

Readln;
Readln;

end.

[سعید صابری]

حالا اشکالش چیه؟

[hamedeb2012]

حل شد دیگه