Задан целочисленный одномерный массив с именем А, размером N с помощью датчика случайных...

Question

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

Answer 1

С переменными, надеюсь, сообразите
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.