Задан целочисленный одномерный массив с именем а, размером n с датчика случайных чисел на промежутке (0; 10). 1. найти минимальные элементы в массиве. 2. найти порядковый номер этого элемента.

С переменными, надеюсь, сообразите
Begin
Randomize;
min:=a[1];
For i:=1 to N do begin
a[i]:=random(10);
write(a[i]);
if (min>a[i]) then begin min:=a[i]; k:=i; end;
end;
Writeln(min);
writeln(k);
end.