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

156

398

Посмотреть ответы 2

Ответы на вопрос:

Slonik3452

Другие предметы

4,8(32 оценок)

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.