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

Вопрос школьника по предмету Информатика

Решить в Pascal ABC
Дан целочисленный массив из n элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно (такие числа будет вводить пользователь, это проверять не нужно). Напишите программу, которая находит максимальный из оканчивающихся на 3 элементов массива, затем увеличивает все элементы массива, кратные 8, на значение этого элемента, и выводит в строку. Если в массиве нет оканчивающихся на 3 элементов, он остаётся без изменений. Например, из массива

7, 23, 18, 24, 33, 48, 80

программа должна получить массив

7, 23, 18, 57, 33, 81, 1

Ответ учителя по предмету Информатика

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.