Question

{Задать массив из 10 случайных чисел в диапазоне [32,96].
Вывести минимальное число массива и его индекс.}

Answer 1

const n=10;
var a:array[1..n] of integer;
i,min,k:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(65)+32;
 write(a[i]:4);
 end;
writeln;
min:=a[1];
k:=1;
for i:=2 to n do
  if a[i]<min then begin min:=a[i];k:=i; end;
writeln('min=a[',k,']=',min);
end.

Пример:
  50  55  72  95  57  87  64  92  42  49
min=a[9]=42