Написать программу которая найдет минимальное значение и выведет это значение,и его номер в массиве.
A=[1,5,7,0,3,16,4,16,5,3]

vara: array[0..9] of integer;i,min:integer;beginfor i:=1 to 9 doread(a[i]);min:=16;for i:=1 to 9 doif a[i] < min then min:=a[i];writeln('Минимальное значение: ', min);writeln('Номер: ', i);end.