Сумароков
5 год назад
Решить в Pascal ABCДан целочисленный массив из n элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно (такие числа будет вводить пользователь, это проверять не нужно). Напишите программу, которая находит максимальный из оканчивающихся на 3 элементов массива, затем увеличивает всеэлементы массива, кратные 8, на значение этого элемента, и выводит в строку. Если в массиве нет оканчивающихся на 3 элементов, он остаётся без изменений. Например, из массива7, 23, 18, 24, 33, 48, 80программа должна получить массив7, 23, 18, 57, 33, 81, 1
ОТВЕТЫ
Нестор
Oct 24, 2020
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.
336
Смежные вопросы:
