Найти минимальный элемент массива и его индекса (в паскале)

program exs;

var a: array [1 ... 30] of integer;

i, min, indMin : integer;

begin

min:=40;

for i: = 1 to 30 do a[i]:=random (30);

for i: = 1 to 30 do begin

if a[i] < min then begin

min:=a[i];

indMin:=i;

end;

end;

write (a[i], ' ', indMin);

end.

int n; / / n - количество элементов в массиве

int a[100]; / / a - массив целых чисел, максимальный размер 100 элементов

cin >> n;

for (int i = 0; i < n; i++) / / ввод массива

cin >> a[i];

int m = a[0];

for (int i = 0; i < n; i++)

if (a[i] < m)

m = a[i];

cout << m;