Вводится натуральное число N (N ≤ 1000000). Затем вводятся N целых чисел, не превосходящих по абсолютному значению 2³¹. Найти количество чисел, которые заканчиваются на 5. Если такие числа есть, вывести максимальное из них.
Чтобы определить последнюю цифру числа, воспользуемся оператором взятия остатка от деления. Чтобы можно было смотреть последнюю цифру у отрицательных чисел, будем брать остаток по модулю.
var
i, n, k, max: longint;
a: array[1..1000000] of longint;
begin
read(n);
max := -32767;
k := 0;
for i := 1 to n do
begin
read(a[i]);
if abs(a[i] mod 10) = 5 then
begin
k := k + 1;
if a[i] > max then max := a[i];
end;
end;
write(k, ' ');
if k <> 0 then write(max);
writeln;
end.
По условию задачи можно обойтись и без хранения массива. Такой код вложен в решение.
