profile
Размещено 4 года назад по предмету Информатика от paskalkamal

Программирование (PASCAL ABC)

Задан массив из n чисел (a1, a2,..., an). На нем два раза осуществляют операцию переворота подмассива: первый раз с позиции l1 по r1, второй раз с позиции l2 по r2.

При перевороте подмассива порядок элементов в нем меняется на обратный.

Ваша задача — найти последовательность после осуществления переворотов.


Входные данные
В первой строке входного файла дано число n (1 ≤ n ≤ 100) — количество чисел в массиве. Во второй строке через пробел записаны целые числа a1, a2,..., an (1 ≤ ai ≤ 100). В третьей строке записаны через пробел числа l1 и r1 (1 ≤ l1 ≤ r1 ≤ n), в четвертой — числа l2 и r2 (1 ≤ l2 ≤ r2 ≤ n).


Выходные данные
Выведите последовательность (a1, a2,..., an) после осуществления переворотов. Числа разделяйте пробелом.

  1. Ответ на вопрос
    Ответ на вопрос дан Аккаунт удален
    const
      nn = 100;

    var
      n, l1, l2, r1, r2, i: integer;
      a, b: array[1..nn] of integer;
      F: Text;

    begin
      Assign(F, 'input.txt');
      Reset(F);
      Readln(F, n);
      for i := 1 to n do Read(F, a[i]);
      Readln(F, l1, r1);
      Readln(F, l2, r2);
      Close(F);
      for i := 1 to l1 - 1 do b[i] := a[i];
      for i := l1 to r1 do b[i] := a[l1 + r1 - i];
      if l2 <= r1 then
      begin
        for i := l1 to r1 do a[i] := b[i];
        for i := l2 to r2 do b[i] := a[l2 + r2 - i]
      end
      else
      begin
        for i := r1 + 1 to l2 - 1 do b[i] := a[i];
        for i := l2 to r2 do b[i] := a[l2 + r2 - i];
      end;
      for i := r2 + 1 to n do b[i] := a[i];
      for i := 1 to n do Write(b[i],' ');
    end.

    Результат решения:
    5 8 3 6 0 14 -6 -2 4 1



Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.