Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который находит самую большую сумму двух соседних элементов и заменяет на эту сумму все элементы, кратные 3. Гарантируется, что в массиве есть хотя бы один элемент, кратный 3. В качестве результата необходимо вывести измененный массив в обратном порядке, каждый элемент массива выводится с новой строчки. Например, для массива из восьми элементов
1 2 6 3 2 7 3
программа должна вывести (по одному числу в строке) числа
4 10 7 2 10 10 2
Язык Паскаль
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который находит самую большую сумму двух соседних элементов и заменяет на эту сумму все элементы, кратные 3. Гарантируется, что в массиве есть хотя бы один элемент, кратный 3. В качестве результата необходимо вывести измененный массив в обратном порядке, каждый элемент массива выводится с новой строчки. Например, для массива из восьми элементов
1 2 6 3 2 7 3
программа должна вывести (по одному числу в строке) числа
4 10 7 2 10 10 2
Язык Паскаль
1 2 6 3 2 7 3
программа должна вывести (по одному числу в строке) числа
4 10 7 2 10 10 2
Язык Паскаль
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
program MaxSumNeighbours;
cons
n = 30;
va
arr: array[1..n] of integer
i, maxSum: integer;
begi
for i := 1 to n d
arr[i] := Random(10001); // заполнение массива случайными числами от 0 до 10000
maxSum := 0
for i := 2 to n - 1 d
begi
if (arr[i-1] + arr[i] > maxSum) the
maxSum := arr[i-1] + arr[i]
end;
for i := 1 to n d
begi
if (arr[i] mod 3 = 0) the
arr[i] := maxSum
end;
for i := n downto 1 d
writeln(arr[i]);
end.