Дана последовательность из n действительных чисел. Найти номер первого минимального элемента.

[d_dima]

Писать в Паскале, заранее спасибо)

[BDA]

Как Вы думаете, почему Ваша репутация так стремительно стремится вниз?
Это не онлайн-решатель
Где Ваши наработки?

Алгоритм:
переменная "номер", равная 1
идем по массиву, начиная со 2 элемента и до конца
в теле цикла сравниваем текущий элемент массива с элементом с индексом "номер" - если строго меньше, то заменяем значение переменной "номер" текущим индексом массива

[VIK_aka_TOR]

пример без массива. Немного логически сложнее, и вряд ли поверят что вы это написали, еси обращаетесь с подобными вопросами на форум без наработок:

var
i, index : integer;
x, x_min : integer;
i, n : integer;
begin
readln(n);
for i:=1 to n do
  begin
   readln(x);  
   if i = 1 then
    begin
      index := i;
      x_min := x;
    end
   else
     if x < x_min then
       begin
         x_min := x;
         index := i;
       end;
  end;
writeln(index, ' - ',x_min);
readln;
end.