Дан целочисленный массив

@ArseniyPC · Регистрация: 08.10.2018

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

Дан целочисленный массив B(40). Получить наименьший элемент последователь-ности {b1+b2; b3+b4; ...; b39+b40}. Вывести на экран исходный массив, наименьший эле-мент и номера элементов, из которых он был получен.
Прошу решить вас данную задачу на паскале

@Puporev · 15.10.2018, 12:34

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const n=40;
var b:array[1..n] of integer;
    i,k,mn:integer;
begin
randomize;
writeln('Массив');
for i:=1 to n do
 begin
  b[i]:=random(100);
  write(b[i]:4);
 end;
writeln;
mn:=b[1]+b[2];
k:=1;
for i:=3 to n-1 do
if b[i]+b[i+1]<mn then
 begin
  mn:=b[i]+b[i+1];
  k:=i;
 end;
writeln('Минимальная сумма=',mn,' номера ',k,' ',k+1)
end.

@ArseniyPC · 15.10.2018, 12:52 **[ТС]**

Спасибо вам за решение

@bormant · 15.10.2018, 12:57

Не та последовательность (b1+b2, b2+b3, ...).

Сообщение от ArseniyPC

{b1+b2; b3+b4; ...; b39+b40}

Pascal
15
16
17
18
19
20
  for i:=2 to n div 2 do
    if mn>b[2*i-1]+b[2*i] then begin
      k:=2*i-1;
      mn:=b[k]+b[k+1];
    end;
  WriteLn('Минимальная сумма ',mn,' номера ',k,' ',k+1);

@Puporev · 15.10.2018, 13:02

Сообщение от bormant

Не та последовательность

Это так.

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@ArseniyPC 0 / 0 / 0 Регистрация: 08.10.2018 Сообщений: 93

	Дан целочисленный массив 15.10.2018, 11:41. Показов 1194. Ответов 4 Метки нет (Все метки) Дан целочисленный массив B(40). Получить наименьший элемент последователь-ности {b1+b2; b3+b4; ...; b39+b40}. Вывести на экран исходный массив, наименьший эле-мент и номера элементов, из которых он был получен. Прошу решить вас данную задачу на паскале 0

@ArseniyPC 0 / 0 / 0 Регистрация: 08.10.2018 Сообщений: 93
	15.10.2018, 12:52 [ТС]
	Спасибо вам за решение 0