Поменять первую и вторую половину массива местами - PascalABC.NET

Формулировка задачи:

Добрый вечер! Задан линейный массив А. Необходимо поменять первую и вторую половину массива местами. Если количество элементов нечетно, то серединный элемент оставить на месте. Дело в том, что я составила программу для массива с четным количеством переменных, а как делать с нечетным до меня не доходит. Буду благодарна помощи в составлении полной программы) Заранее спасибо!!

Решение задачи: «Поменять первую и вторую половину массива местами»

textual
                            Листинг программы 
                        
 
                        
                          
                    
  for i := 1 to N div 2 do
  begin
    k := a[i];
    a[i] := a[(N div 2) + (N mod 2) + i];
    a[(N div 2) + (N mod 2) + i] := k;
  end;

Оцени полезность:

14 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы