Что значит "наименьший первый"? И на каком языке?
Паскаль

Ответы и объяснения

2014-03-13T21:35:05+04:00
Var
  i: Integer;
  Arr: array of Integer;
  Min: Integer;
begin
// Заполнение массива
...
// Поиск минимального 
if Arr <> nil then
begin
  Min := Arr[0];
  for i := 1 to Length(Arr) - 1 do
    if Arr[i] < Min then Min := Arr[i];
end;
// Вывод результата 
end;