Нужно сделать контрольную по теории алгоритмов - Pascal - Ответ 13421921

program zadanie11;
 
const
  a = -22;  // Нижняя граница диапазона случайных чисел.
  b = 132;  // Верхняя граница диапазона случайных чисел.
  n = 10;   // Количество элементов в массиве.
var
  c: array[1..n] of integer; //Переменная в которой хранится массив.
  i: integer;      //  Промежуточная переменная для организации циклов.
  min: integer;    //  Промежуточная переменная для поиска минимального элемента.
  indmin : integer;    // Переменная для хранения индекса массива с минимальным значением.
begin
  randomize;
  writeln('Массив:');
  for i:=1 to n do  // Заполняем массив случайными числами в заданном диапазоне.
    begin
    c[i]:=a + random(b - a + 1);
    write(c[i], '  ');
    end;
  min:=c[1];
  indmin:=1;
  for i:=2 to n do   // Находим элемент с минимальным значением.
    if c[i]< min then
       begin
       min:=c[i];
       indmin:=i;
       end;
  writeln;
  writeln('Элемент массива под номером ',indmin,' имеет минимальное значение: ',min);
  readln;
end.