Question

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 12. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 12. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: максимальное число, Оканчивающееся на 12. Пример работы программы:

Answer 1

Ответ:

pascal

Объяснение:

var

 n, i, max: integer;

 a: array of integer;

begin

 Write('Введите размер массива:');

 ReadLn(n);

 SetLength(a, n);

 WriteLn('Введите элементы массива:');

 for i := 0 to n - 1 do

 begin

     Write('a[', i, ']= '); ReadLn(a[i]);

     if (a[i] mod 100 = 12) and (a[i] > max) then max := a[i];

 end;

 WriteLn('Максимальный элемент массива, оканчивающийся на 12, равен ', max);

end.