Дан массив A, состоящий из 12 элементов. Элементы массива - произвольные целые числа. Поменять местами значения 1 и 2 (программа Паскаль)

Question

Дан массив A, состоящий из 12 элементов. Элементы массива - произвольные   целые числа. Поменять местами значения 1 и 2 элементов, 3 и 4 и т.д.   Измененный массив вывести на экран

Answer 1

USES Crt;
 VAR
   A:ARRAY[0..12] OF INTEGER;
   I: BYTE;   PP:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO 12 DO Begin
     A[I]:=Random(20);    Write(A[I]:3);
   End;   WriteLn;
   I:=1;
   WHILE I<=12 DO Begin
     {перестановка элементов местами, используя промежуточную переменную PP }
     PP:=A[I];   A[I]:=A[I+1];  A[I+1]:=PP;
     I:=I+2;
   End;
   WriteLn(' Значения элементов измененного массива');
   FOR I:=1 TO 12 DO
     Write(A[I]:3);
 END.