Word мәтіндік редакторында парақ параметрлерінауыстыру үшінОБеттің орналасуы (Разметкастраницы) - > Бағдар(Ориентация) - > Кітап түрінде /Альбом (Книжная/Альбомная)түрінде командасын таңдаймызБеттің орналасуы (Разметкастраницы) - > Кітап түрінде /Альбом (Книжная/Альбомная)түрінде командасын таңдаймызБеттің орналасуы (Разметкастраницы) - > Бағдар(Ориентация) командасынтаңдаймыз​

program mas;

var

 massive: array[0..1000] of integer;

 n, i: integer;

begin

 massive[0] := 2;

 write('Введите количество элементов массива: ');

 read(n);

 for i := 0 to n - 1 do

 begin

   write(massive[i], ' ');

   massive[i + 1] := massive[i] + 2;

 end;

end.

Объяснение:

Максимальный размер массива - 1001 элемент.

program mas;  // Название программы

var

 massive: array[0..1000] of integer;  // Целочисленный массив

 n, i: integer;  // Переменные, отвечающие за количество чисел в массиве и счётчик.

begin  // Начало программы

 massive[0] := 2;  // Первое значение массива = 2

 write('Введите количество элементов массива: ');  // Вывод сообщения в консоль

 read(n);  // Считываем значение переменной n с клавиатуры

 for i := 0 to n - 1 do  // Идём от 0 до n - 1 индекса (n - 1, т. к. идём с нулевого индекса)

 begin  // Начало цикла

   write(massive[i], ' ');  // Вывод значения массива с индексом i

   massive[i + 1] := massive[i] + 2;  // Следующий элемент массива = текущий элемент массива + 2

 end;  // Конец цикла

end. // Конец программы

program Arrminmax;

var

 A: array of Integer;

 N, i, imin, imax, Atmp: Integer;

begin

 Write ('Введите размерность массива: ');

 ReadLn (N);

 SetLength(A, N);                       // устанавливаем размерность массива, введенную с клавиатуры

 Randomize;

 WriteLn ('Исходный массив:');

 for i := Low (A) to High (A) do begin  // заполняем массив случайными числами от -10 до 10 и выводим его на экран

   A [i] := Random (21) - 10;

   Write (A [i], ' ');

 end;

 imin := Low (A);                       // начальные значения - первых индекс в массиве

 imax := Low (A);

 for i := Low (A) to High (A) do begin  // находим минимальный и максимальный элементы массива

   if A [i] < A [imin] then

     imin := i;

   if A [i] > A [imax] then

     imax := i;

 end;

 Atmp := A [imax];                      // меняем местами минимальный с максимальным

 A [imax] := A [imin];

 A [imin] := Atmp;

 WriteLn;

 WriteLn ('Результат обработки:');    // вывод результата

 for i := Low (A) to High (A) do begin

   Write (A [i], ' ');

 end;

 ReadLn;

end.

Объяснение: в комментариях к программе