Question

Дан массив из N чисел. N - четное. Написать программу, меняющую местами элементы с четными и нечетными номерами.
Плиз помогите оч надо

Answer 1

Program Yolo;
Uses Crt;
Const N=16;
Var Mass: array [1..n] of integer;
    Back: integer;
    i: byte;
Begin
 Randomize;
 ClrScr;
 Writeln('Исходная матрица [-15;15]: ');
 For i:=1 to N do
  Begin
   Mass[i]:=Random(31)-15;
   Write(Mass[i]:4);
  End;
 Writeln;
 For i:=1 to N do
   If i mod 2<>0 then
    Begin
     Back:=Mass[i];
     Mass[i]:=Mass[i+1];
     Mass[i+1]:=Back;
    End;
 Writeln('Отформотированный матрица: ');
 For i:=1 to N do
  Write(Mass[i]:4);
 Readln;
End.