задачі

Умова: Дано одновимірний масив цілих чисел А[i], де i = 1,2,…n. Вивести елементи масиву з парними індексами.
В даному випадку незручно користуватися для виведення на екран елементів з парними індексами циклом з параметром, тому що він дозволяє зміну індексу тільки на одиницю. Тому пропонуємо скористатися циклом з перед або післяумовою.

Program Example_311_2;
    Uses crt;
    Var N,i : word; {N - кількість елементів масиву, i -
                   змінна циклу}
          А : array [1..100] of longint; {A - заданий масив}
Begin
  Clrscr;
  Write ('Введіть кількість елементів масиву (<100 br="">  Readln (N);
 For i:=1 to N do
   Begin
    A[i]:=random(300); {Заповнення масиву
                        випадковими числами}
    Write(А[i]:5); {Виведення масиву на екран
                    для контролю правильності
                    роботи програми}
    End;
    Writeln; {Переведення курсору на наступний
             рядок}
     i:=2;
   while i<=N do
    Begin
      Write(A[i]:5);
      i:=i+2; {Змінна циклу змінюється на 2, щоб
               вибрати тільки парні елементи}
     End;
     Readkey; {Затримка зображення на екрані}
   End.