Ну так, как эта работа не контрольная, то получится так:
1. Для того, чтобы s было максимальным, надо чтобы рядом стоящие элементы отличались на минимальное значение. Так как по условию задачи массив содержит целочисленное значение, то минимальная разница = 1
2. Далее при каждом вхождении в цикл переменная s будет увеличиваться на 2:
i = 0 s = 17
i = 1 s = 19
i = 2 s = 21
i = 3 s = 23
i = 4 s = 25
i = 5 s = 27
i = 6 s = 29
i = 7 s = 31
i = 8 s = 33
i = 9 s = 35
Ответ: s = 35
Возможность использования баз данных в других инф системах называется: интеграция.
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure AB(a,b:array of integer);
begin
var (iaMax,ibMax):=(a.IndexMax,b.IndexMax);
var t:=a[iaMax]; a[iaMax]:=b[ibMax]; b[ibMax]:=t
end;
begin
var a:=ArrRandom(9,-99,99);
Write('A: '); a.Println;
var b:=ArrRandom(11,-99,99);
Write('B: '); b.Println;
AB(a,b);
Write('A: '); a.Println;
Write('B: '); b.Println;
end.
<u>Пример</u>
A: -46 -76 98 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 80 -50 -55
A: -46 -76 80 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 98 -50 -55