Заполнить массив из 10 элементов случайными числами в интервале [-8; 13] [-10; 25] [98; 101] [-5; 15] и найти в нем максимальный и минимальный элементы и их номера. пример: исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 максимальный a[4]=10
минимальный a[8]=-10

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]<a[i] then max:=i;

  end;

  writeln(a[min], a[max]);

End.