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

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.