Переставить в обратном порядке элементы массива, расположенные между элементами AK и AL, не включая эти элементы

@Линар1305 · Регистрация: 28.04.2011

Студворк — интернет-сервис помощи студентам

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

@ermolay · 16.04.2012, 07:18

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
const
  nmax=100;
var
  a: array[1..nmax] of integer;
  i,k,l,p,q,n,buf: integer;
begin
  randomize;
  write('vvedite n ');
  readln(n);
  writeln('ishodnii massiv:');
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    write(a[i],' ');
  end;
  writeln;
 
  write('vvedite k,l (k<l) : ');
  repeat
    readln(k,l);
  until (k<l)and(k>1)and(l<n);
  for i:=k to (l-k)div 2+k do
    begin
      buf:=a[k];
      a[k]:=a[l];
      a[l]:=buf;
      inc(k); dec(l);
    end;
 
  for i:=1 to n do write(a[i],' ');
  readln;
end.

@Линар1305 · 16.04.2012, 10:01 **[ТС]**

Не робит почему то, когда я кому нибудь помогаю, я с начала проверяю код...

@ermolay · 16.04.2012, 10:41

Переставить в обратном порядке элементы массива, расположенные между элементами AK и AL, не включая эти элементы

@ermolay · 16.04.2012, 10:45

изменений не вносил, робит в PascalABC.NET, делал в фри паскале лазаря, и вообще это не рынок, где я продаю, а вы покупаете, я подкинул вам мысль - вы доводите ее до ума

Добавлено через 28 секунд

Не по теме:

и культурные люди иногда спасибо говорят

@Линар1305 · 17.04.2012, 06:25 **[ТС]**

Все отлично, +1

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Линар1305 0 / 0 / 0 Регистрация: 28.04.2011 Сообщений: 20

	Переставить в обратном порядке элементы массива, расположенные между элементами AK и AL, не включая эти элементы 16.04.2012, 06:13. Показов 4212. Ответов 5 Метки нет (Все метки) Дан массив A размера N и целые числа K и L (1 ≤ K < L ≤ N). Переставить в обратном порядке элементы массива, расположенные между элементами AK и AL, не включая эти элементы. 0

@Линар1305 0 / 0 / 0 Регистрация: 28.04.2011 Сообщений: 20
	16.04.2012, 10:01 [ТС]
	Не робит почему то, когда я кому нибудь помогаю, я с начала проверяю код... 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	16.04.2012, 10:41
	0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	16.04.2012, 10:45
	изменений не вносил, робит в PascalABC.NET, делал в фри паскале лазаря, и вообще это не рынок, где я продаю, а вы покупаете, я подкинул вам мысль - вы доводите ее до ума Добавлено через 28 секунд Не по теме: и культурные люди иногда спасибо говорят 1

@Линар1305 0 / 0 / 0 Регистрация: 28.04.2011 Сообщений: 20
	17.04.2012, 06:25 [ТС]
	Все отлично, +1 0