Заполнить массив из 10 элементов случайными числами в интервале [-8;13] [-10;25] [98;101]...

Question

Заполнить массив из 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

Answer 1

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]

  end;

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

 

End.