کمک در پاسکال(فوری)

سلام , دوستان لطفا من رو تو حل این مسئله راهنمایی کنید.:11:
برنامه ای بنویسید که عناصر یک آرایه 10 عضوی را از وردودی دریافت و سپس عناصر آرایه را یک مکان به راست بچرخاند.

این که دیگه کاری نداره !
شما باید عنصر i رو به جای عنصر i+1 قرار بدی فقط نکته اش اینه که باید از آخر آرایه شروع کنی تا داده های جلویی از بین نره.
اگه منظور از چرخش همون Rotate باشه عنصر آخر باید بیاد جای عنصر اول آرایه

کد:

---

program test;
var
x:array[1....10] of real;
i=integer;
temp=real;
begin
for i=1 to 10 do
real ln(x[i]);
temp:=x[5];
for i:=9 downto 1  do
x[i+1]:=x[i];
x[1]:=temp;
for i:=1  for  to 10 do
write ln (x[i]);
end.

---

که قسمت temp عملیات شیفت رو انجام میده


موفق باشی

ممنونم از کمکت دوست عزیز , خیلی لطف کردین.

سلام. من یه پروژه دارم که باید 3 دی هم تحویل بدم. لطفا هر چه زودتر واسم حلش کنید.
برنامه ای به زبان پاسکال بنویسید که از طریق یک منو پردازش های زیر را انجام دهد:
الف: امکان جستجو براساس شماره دانشجویی به نحوی که با ورود شماره دانشجویی کلیه مشخصات را نمایش دهد.
ب: امکان جستجو براساس نام خانوادگی به نحوی که با ورود چند حرف از نام خانوادگی کلیه دانشجویانی که نام خانوادگی آنها با ان حرف شروع می شود را مشخصاتشان را بدهد.
ج: امکان دریافت نام یک درس و ارائه معدل ان درس در بین کلیه دانشجویان.