Вариант 3. Задание 2: 1. Размерность массива — 9 элементов. 2. Массив заполнить с клавиатуры. 3. Распечатать массив после заполнения. 4. Найти минимальный элемент массива и увеличить его в 2 раза. 5. Распечатать минимум.

Считываем девять чисел, находим минимальный элемент и удваиваем именно его в массиве. Затем выводим исходный массив и изменённое значение минимума.

program Task2;

var
  a: array[1..9] of Integer;
  i, minIndex: Integer;

begin
  WriteLn('Введите 9 целых чисел:');
  for i := 1 to 9 do
    Read(a[i]);

  WriteLn('Массив после заполнения:');
  for i := 1 to 9 do
    Write(a[i], ' ');
  WriteLn;

  minIndex := 1;
  for i := 2 to 9 do
    if a[i] < a[minIndex] then
      minIndex := i;

  a[minIndex] := a[minIndex] * 2;

  WriteLn('Минимум после увеличения в 2 раза: ', a[minIndex]);
end.

Если минимальное значение встречается несколько раз, программа удваивает первое из них.