Question

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 8. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, оканчивающееся на 8. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число – максимальное число, оканчивающееся на 8.

Answer 1

Var
a:array[1..1000] of integer;
i,q,n:integer;
begin
q:=0;
writeln('Кол-во чисел');
readln(n);
for i:=1 to n do
begin
writeln('Введите число №',i);
readln(a[i]);
if a[i] mod 10 = 8 then
if a[i]>q then
q:=a[i];
end;
writeln(q);
end.