Задача на min и max

[KREGI]

Условие: Найти номера первого и последнего минимального элемента из данного набора и вывести их в указанном порядке.

procedure TForm1.Button1Click(Sender: TObject);
var A:array[0..4] of integer;
i,m,n,min,max:integer;
begin
for i:=0 to 4 do
a[i]:=strtoint(stringgrid1.cells[i,0]);
min:=a[1];max:=a[1];
for i:=0 to 4 do
if a[i]<min then
m:=i+1;
label1.Caption:='min= '+inttostr(m);
for i:=0 to 4 do
if a[i]>max then
n:=i+1;
label2.Caption:='max= '+inttostr(n);
end;

То что сейчас набрал(чувствует сердце не правильно ), Помогите плз, срочно надо, Заранее спасибо

[terminadoor]

Условие: Найти номера первого и последнего минимального элемента из данного набора и вывести их в указанном порядке.

Всмисле? Как могут существовать в наборе два неодинаковие минимальние зачения?

[KREGI]

я там код не верный выложил, я условие тоже не особо понял, надо наверно выводить номера положения числа в массиве, от самого маленького к большему
Например, дан массив: 1 8 3 9 2
надо вывести: 1 5 3 2 4 (это номера чисел в массиве) - это как я понял

[terminadoor]

как я понял, числа целие? не надо юзать вещественний тип?

[KREGI]

числа целые.

[Evgeniy26]

Сортируйте массив по возрастанию перемещая числа и их индексы, потом выводите индексы.

[KREGI]

Можете код написать плз?

[terminadoor]

сейчас попробую.

[terminadoor]

Сделал. Правда прога консольная.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var a,ar,ar1:array[1..120000] of longint;
  var n,i,j,k,l,t,aa,b,c:longint;
begin
readln(n);{Количество елементов в наборе(масиве)}
for l:=1 to n do begin
read(a[l]);
ar[l]:=a[l];
end;
  for i := n - 1 downto 1 do
    for j := 1 to i do
        if a[j] > a[j+1] then
        begin
            t := a[j];
            a[j] := a[j+1];
            a[j+1] := t;
        end;
l:=1;aa:=1;
while l<=n do begin
aa:=1;
while aa<=n do begin
if a[l]=ar[aa] then begin
write(aa,' ');
inc(l,1);
end else inc(aa);
end;
end;
readln;readln;
  end.

И ёщё одно примечание:
в первом рядке вводим количество елементов, во втором - елементи через пробел. Ваш пример вводить надо так:

5
1 8 3 9 2

[Evgeniy26]

Смотрите
там замените

for i := 1 to High(Mas) do

на

for i := 1 to High(Mas[0]) do