آرایه

[hercool]

سلام دوستان من در مبحث آرایه ها دو مثال رو نوشتم و کامپایل میشه ولی برای run جواب نمیده میشه یه نگاهی به فایل هاا بندازید
ممنون

[Felony]

برای اینکه اصلی ترین موضوع رو در برنامتون رعایت نکردین ( اضافه کردن یونیت های مورد نیاز برنامه ) :



program pa162_3;
Uses Wincrt;
var
no:array[1..100] of integer;
max,i,index:integer;
begin
writeln('please enter ten numbers');
for i:=1 to 100 do
readln(no[i]);
max:=no[1];
index:=1;
for i:=2 to 100 do
if no[i] > max then
begin
max:= no[i];
index:=i;
end;
writeln('the maximum is=' , max);
writeln('and index=' , index);
end.






program pa163_1;
Uses Wincrt;
var
j,number,i:integer;
a:array[1..100] of integer;
begin
write('please enter a number:');
readln(number);
i:=1;
while number >=0 do
begin
a[i]:= number mod 2;
number:= number div 2;
i:= i+1;
end;
for j:=i-1 downto 1 do
write(a[j]);
end.