Напишите программу на паскале к дано н-натуральных чисел не привышавшая 300 .найти наибольшее число с предпоследней цифрой 0. заранее

261

434

Посмотреть ответы 3

Ответы на вопрос:

alex2002fedorov

Информатика

4,4(33 оценок)

1. современный вариант (коротко, быстро и наглядно, кто знает). так уже начали учить в некоторых школах. // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin var s: =arrrandom(readinteger('n='),1,300).println. where(k-> (k> =100) and ((k mod 100) div 10=0)); if s.count> 0 then writeln(s.max) else writeln('нет элементов') end. пример n= 15 76 283 171 140 113 65 185 35 202 42 93 51 205 76 138 205 2. а так по-прежнему учат в большинстве школ. стиль "80-х годов прошлого века". долго, длинно, можно наделать ошибок, но по-другому эти учителя сами не могут. const nn=100; var i,n,max: integer; a: array[1..nn] of integer; begin write('n='); read(n); randomize; max: =0; for i: =1 to n do begin a[i]: =random(300)+1; write(a[i],' '); if (a[i]> =100) and ((a[i] mod 100) div 10=0) then if a[i]> max then max: =a[i] end; writeln; if max> 0 then writeln(max) else writeln('нет элементов') end. пример n=15 219 68 131 115 104 169 80 288 143 108 124 214 50 101 1 108

AdelkaTiVi

Информатика

4,5(84 оценок)

Begin var max : = 0; var n : = readinteger('введите n: '); write('введите n чисел: '); for var i : = 1 to n do begin var a : = readinteger(); if(a.tostring.length > 1) then if(a.tostring[a.tostring.length - 1] = '0') then if(a > max) then max : = a; end; if(max = 0) then write('нет таких чисел.') else write(max); end.

ylau2006g

Информатика

4,8(37 оценок)

ответ:WinRar Gimp

Объяснение:

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

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

Задай свой вопрос

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

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

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

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

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

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

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