Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.03.2020, 23:07   #1
incl_02
Пользователь
 
Регистрация: 28.02.2020
Сообщений: 11
По умолчанию Переставить в обратном порядке элементы массива, расположенные между элементами AK и AL, включая эти элементы.

Вот задачка:
Дан массив A размера N и целые числа K и L (K<=L<=N). Переставить в обратном порядке элементы массива, расположенные между элементами AK и AL, включая эти элементы.

Вот код:
Код:
var a:array[1..100] of integer;
    n,k,l,i,x:integer;
begin
randomize;
repeat
write('Введите размер массива от 4 до 100 n=');
readln(n);
until n in [4..100];
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=10+random(90);
  write(a[i]:4);
 end;
writeln;
repeat
writeln('Введите номера элементов между которыми перестановка 1<k<l<n');
readln(k,l);
until(k>1)and(l>k)and(l<n);
for i:=1 to (l-k+1)div 2 do
 begin
  x:=a[k+i-1];
  a[k+i-1]:=a[l-i+1];
  a[l-i+1]:=x;
 end;
writeln('Перестановка');
for i:=1 to n do
write(a[i]:4);
end.
Вопрос:
Переставить в обратном порядке элементы массива, расположенные между элементами AK и AL, НЕ включая эти элементы.
incl_02 вне форума Ответить с цитированием
Старый 01.03.2020, 23:16   #2
incl_02
Пользователь
 
Регистрация: 28.02.2020
Сообщений: 11
По умолчанию

Уже понял где поправить, спасибО)
incl_02 вне форума Ответить с цитированием
Старый 02.03.2020, 02:37   #3
Desc
Участник клуба
 
Аватар для Desc
 
Регистрация: 21.11.2007
Сообщений: 1,063
По умолчанию

За что? До Свидание
I am not a wizard, I am just learning.
Desc вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан массив размера N. Обнулить элементы массива, расположенные между его минимальным и максимальным элементами (не включая минимальный и максимальный элементы) Churly Помощь студентам 4 01.03.2019 19:21
C++ Переставить элементы этого столбца в обратном порядке mrKrog Помощь студентам 8 20.01.2017 15:15
Переставить в обратном порядке элементы массива Lorein Помощь студентам 0 26.12.2016 20:43
Как переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальным элементами? xEk Помощь студентам 1 09.05.2012 21:20
Переставить элементы массива в обратном порядке Mayers Общие вопросы C/C++ 3 06.05.2012 12:15