В файле input.txt записано число N (1<=N<=10000) равное количеству элементов целочисленной последовательности, а затем сами элементы последовательности.
Напишите программу, которая вводит данные в массив и находит в данной последовательности наибольшее нечетное число, не содержащее цифру 6, а если таких чисел в заданной последовательности нет, то вывести 0.
Результаты работы программы записать в файл output.txt
4245788
2
07.04.2020 20:21
0
Другие вопросы по теме Информатика
irisa8
19.09.2019 10:50
Gold1121
26.09.2019 01:40
Nastyaaaaaa34
26.09.2019 01:40
evegn1331
26.09.2019 01:40
Маргарита2021
26.09.2019 01:40
malgee4
15.04.2020 10:53
eaglez91Aidana
15.04.2020 10:54
Dianaspbrf
24.09.2019 09:10
irochkakarpenkp0bint
24.09.2019 09:10
Популярные вопросы
- Раздели единицы на группы: неделя,эра,гектар,метр квадратный,сотка,час,секунда....
2 - Когда отцу было 30 лет сыну было 5 лет теперь отец старше сына в два раза сколько...
1 - Фразеологию образно называют жемчужиной речи. закончите фразеологизмы. ( кимвал,...
2 - Проделать реакции, качественный состав хлорида бария....
2 - Вчем сходство и различие обычаев и законов?...
1 - Пёстрый морфологический разбор слова...
1 - My favorite kind sport is football. сочинение...
1 - Мы соседи с пауком. он висит под потолком. я – под ним, на полу. он в углу,...
1 - Поясніть значення понять і термінів: «повстання с. палія», «малоросійська колегія»,...
1 - Полное ионное и молекулярное уравнения hgcl2+hcl...
2
Объяснение:
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.