Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 12. Программа получает на

Question

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

лина28051 · Answer

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....

Популярные вопросы