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

kosen2332 kosen2332    3   25.06.2019 20:30    0

Ответы
vmalina2005 vmalina2005  20.07.2020 21:00
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика