Есть ответ 👍

!!!!!хэлп!!!!!
В файле input.txt записано число N (1<=N<=10000) равное количеству элементов целочисленной последовательности, а затем сами элементы последовательности.
Напишите программу, которая вводит данные в массив и находит в данной последовательности наибольшее нечетное число, не содержащее цифру 6, а если таких чисел в заданной последовательности нет, то вывести 0.
Результаты работы программы записать в файл output.txt

100
130
Посмотреть ответы 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.

malkevich12
4,6(70 оценок)

Разветвления - второй из типичных разновидностей алгоритмов. разветвления начинается с определенного условия. если это условие выполняется, происходит одно действие (или набор действий); если нет - другая. примером такого алгоритма может служить, например, общение контроллера с пассажиром автобуса: если пассажир предъявил билет, надо пассажиру за оплаченный проезд, если нет - оштрафовать. для программирования разветвления в языке паскаль используется одна из конструкций if - then и if - then - else (. if - "если", then - "то", else - "иначе"). складанне-сложение

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS