Выберите тип данных float -12,116,7.2,3.66​

Поскольку неясно, что делать, если в массиве несколько минимальных или максимальных элементов, то считаем, что их только  по одному. const n=10; var   a: array[1..n] of integer;   mn,mx: integer;   i,k1,k2: byte; begin   mn: =maxint;   mx: =-maxint;   writeln ('введите ',n,' чисел: ');   for i: =1 to n do begin;     read (a[i]);     if a[i]< mn then begin mn: =a[i]; k1: =i end;     if a[i]> mx then begin mx: =a[i]; k2: =i end;   end;   for i: =1 to n do      if (i> min(k1,k2)) and (i< max(k1,k2)) then a[i]: =0;   writeln;   writeln ('местоположение минимального элемента: ',min(k1,k2));   writeln ('местоположение максимального элемента: ',max(k1,k2));   writeln;   print (a); end. пример: введите 10 чисел: 5 2 9 4 6 8 2 1 3 7 местоположение минимального элемента: 3 местоположение максимального элемента: 8 5 2 9 0 0 0 0 1 3 7