Первая - найти максимальную сумму. Вторая - перестановка...(массивы).

@2ndMAXIMum · 06.01.2010, 19:30

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

1.Дан одномерный массив целых чисел. Найти максимальную сумму среди пар двух соседних элементов.
2.Дан массив А из n элементов и число m , где 1<m<n. Не используя дополнительных массивов, переставить первые m элементов в конец массива, а с (m+1)-го по n-й - в начало, сохраняя порядок элементов.
Оч. нужно на VB...заранее спасибо.

Добавлено через 4 часа 23 минуты
Прошу помогите кто-нить оч нужно...

@Toxa33rus · 06.01.2010, 20:53

1.

Visual Basic
1
2
3
4
5
max_summ=a(1)+a(2)
for i=1 to ubound(a)-1
  if max_summ< a(i)+a(i+1) then max_summ = a(i)+a(i+1) 
next i
msgbox max_summ

Добавлено через 12 минут
2.

Visual Basic
1
2
3
4
5
6
7
For j = 1 To m
  tmp = a(n)
  For i = n To 2 Step -1
    a(i) = a(i - 1)
  Next i
  a(1) = tmp
Next j

@2ndMAXIMum · 06.01.2010, 22:45

Спасибо огромное...

Новые блоги и статьи Все статьи Все блоги /
Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .