Question

Дан массив размера N. Вывести минимальный элемент данного массива и его
номер.

Answer 1

Const N = 10;
Var m : array[1..N] of Integer;
i,k : Byte;
Begin
  k:=1;
  For i:=1 to N do
  Begin
    m[i]:=Random(100);
    If m[i]<m[k] then k:=i;
  end;
  Writeln('Value: ',m[k],'  Index: ',k);
end.