پیدا کردن ایندکس آرایه

[سلیمانی]

سلام
من یک سوال در مورد پیدا کردن ایندکس آرایه داشتم.
آرایه دارای 9خانه می باشد که 8تای آن یک عدد مانند4ویک خانه آن عدد1میباشد.ما میخواهیم فقط با دستور FOR پاسکال بدون دستور IF ایندکس عدد 1را بیابیم .و یا با یک یا دو دستور IF خارج حلقه FOR

[arashtabaie]

من چون پاسکال بلد نیستم کد c براتون مینویسم خودتون ترجمه کنید:
Please Login or Register to see this codeبرنامه ی بالا کاری که خواستید رو میکنه !!
الگوریتمشم که خیلی خیلی ساده است و نیازی به توضیح نداره