Pascal.Найти и напечатать индекс наименьшего элемента одномерного массива P размерности 5...

Question

Pascal.Найти и напечатать индекс наименьшего элемента одномерного массива P размерности 5 элементов. Из равных наименьших элементов выбрать элемент с большим индексом. Что не так с кодом?

---

---

Answer 1

Type
vect=array[1..5]of integer;
var
p:vect; i,min,imin:integer;
begin
writeln('Введите массив:');
for i:=1 to 5 do read(p[i]);
readln;
min:=p[i]; imin:=1;
for i:=2 to 5 do
 if p[i]<=min then begin min:=p[i]; imin:=i; end;<br>writeln('min = ',min);
writeln('imin = ',imin);
end.

Пример:
Введите массив:
25 12 30 12 49
min = 12
imin = 4