Дан целочисленный массив из n элементов. Элементы - вопрос №11527058 от vkovbasa99 31.08.2022 16:38

Question

Информатика: Дан целочисленный массив из n элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно (такие числа будет вводить пользователь, это проверять не нужно). Напишите программу, которая находит максимальный из оканчивающихся на 3 элементов массива, затем увеличивает все элементы массива, кратные 8, на значение этого элемента, и выводит в строку. Если в массиве нет оканчивающихся на 3 элементов, он остаётся без изменений. Например, из массива7, 23, 18, 24, 33, 48, 80программа

vkovbasa99 · Answer

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.