В файле input.txt записано число N (1<=N<=10000) равное количеству элементов целочисленной последовательности, а затем сами элементы последовательности.
Напишите программу, которая вводит данные в массив и находит в данной последовательности наибольшее нечетное число, не содержащее цифру 6, а если таких чисел в заданной последовательности нет, то вывести 0.
Результаты работы программы записать в файл output.txt
Объяснение:
var
s:array[1..10000] of longint;
a,b,i,k,max:longint;
begin
read(a);
for i:=1 to a do
begin
read(s[i]);
end;
max:=s[1];
for i:=1 to a do
if (s[i] mod 2 = 1) and (s[i] mod 10000 <> 6) and (s[i] div 10 mod 1000 <> 6) and (s[i] div 100 mod 100 <>0) and (s[i] div 1000 mod 10) and (s[i] div 10000 <>6) then
begin
max:=s[i];
inc(k);
end;
end;
if (k=0) then write(0) else write(max);
end.