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

Диапазон случайных чисел в условии не указан, поэтому для примера выберем целые числа от 0 до 99. В Free Pascal функция Random(100) генерирует число в этом диапазоне.

Сначала заполняем массив случайными числами и печатаем его. Затем уменьшаем каждый элемент на 4 и печатаем массив повторно.

program Task1;

var
  a: array[1..14] of Integer;
  i: Integer;

begin
  Randomize;

  for i := 1 to 14 do
    a[i] := Random(100);

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

  for i := 1 to 14 do
    a[i] := a[i] - 4;

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

Если нужен другой диапазон случайных чисел, измените выражение Random(100).