Дан целочисленный массив из n элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно (такие числа будет вводить пользователь, это проверять не нужно). Напишите программу, которая находит максимальный из оканчивающихся на 3 элементов массива, затем увеличивает все элементы массива, кратные 8, на значение этого элемента, и выводит в строку. Если в массиве нет оканчивающихся на 3 элементов, он остаётся без изменений. Например, из массива
7, 23, 18, 24, 33, 48, 80
программа должна получить массив
7, 23, 18, 57, 33, 81, 113
KinezyOldside
3
20.04.2020 13:19
1
Другие вопросы по теме Информатика
alinabiychinska
04.12.2020 09:26
nlapenko
04.12.2020 09:27
никун
25.06.2019 13:50
лера21091
15.04.2021 18:16
ПолиночкаПоля1
15.04.2021 18:15
anonymous18
21.11.2019 20:46
аня2934
06.05.2021 10:22
Sachak95
06.05.2021 10:21
franktyoma
29.05.2019 19:20
Популярные вопросы
- Какая Пушкина написана на тему украинской сказки?...
3 - К какому произведению Пушкина эпиграфом была взята пословица: «Береги...
1 - Какое одно из вольнолюбивых произведений Пушкина в 1827 г. проникло...
2 - К какому циклу произведений Пушкин взял эпиграфом слова из комедии...
1 - В каких произведениях Пушкина изображен Петр I?...
3 - Герои каких пушкинских произведений Мария и Владимир?...
2 - Когда и в связи с чем В.А. Жуковский подарил Пушкину свой портрет?...
2 - В каком стихотворении Пушкина встречаются устаревшие слова «персты»,...
2 - Какое одинаковое название имеют романтическая поэма А.С. Пушкина...
2 - Какое стихотворение, открывающее романтический период в творчестве...
3
const n = 7;
var a: array [1..n] of integer;
i, max: integer;
begin
for i := 1 to n do
begin
write('Введите ', i, ' элемент: ');
readln(a[i]);
end;
max := 0;
for i := 1 to n do
begin
if (a[i] mod 10 = 3) and (a[i] > max) then
max := a[i];
end;
for i := 1 to n do
begin
if (a[i] mod 8 = 0) then
a[i] := a[i] + max;
end;
for i := 1 to n do
begin
write(a[i], ' ');
end;
writeln();
end.