дан массив A(N) .найти малый элемент массива и его порядковый номер.

// PascalABC.NET 3.2, сборка 1514 от 11.08.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(8,-50,50); a.Println;
  var imin:=a.IndexMin;
  Writeln('Минимальный элемент A[',imin+1,']=',a[imin])
end.

Пример
2 22 27 -5 -35 -1 -4 35
Малый элемент A[5]=-35

includelt;iostreamgt;
using namespace std;

int main()
     int a[8];
     for(int i=0;ilt;8;i++)
          cingt;gt;a[i];
     
     int min=a[0],nom=1;
     for(int i=1;ilt;8;i++)           if(a[i]lt;min)                min=a[i];                nom=i+1;                
    coutlt;lt;"Min element - "lt;lt;minlt;lt;endllt;lt;"Index - "lt;lt;nomlt;lt;endl;
    return 0;