Заполнить массив из 10 элементов случайными числами в интервале [-8;…

var a: array [1… 10] of integer; min,max,i,c,b: integer; Begin read (c,b); randomize; for i: =1 to 10 do a[i]: =random (b) -c+1; min: =1; max: =1; for i: =1 to 10 do begin if a[min]>a[i] then min: =i; if a[max]