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.

Answer 2

Каким изначально должно быть q?

Answer 3

q=0