من یه پروژه دارم می خوام 50 عدد رو بگیره تو یه آرایه بریزه و بعد بزرگترین عدد ، تعداد تکرار و همچنین مکان تکرار (ایندکس خانه یا خانه هایی از آرایه که بزرگتررین عدد در اون تکرار شده) رو نشون بده
خودم اینو نوشتم ولی کامل نیست
کسی می تونه کاملش کنه تا تعداد تکرار و اندیکس ها رو هم نمایش بده؟
begin
for i := 1 to 50 do
begin
write('please enter 50 numbers:');
read(n[i]);
clrscr;
end;
for i:=1 to 50 do
if n[i]>max then
max:=n[i];
writeln('the maximum is=',max);
end.