Ответы на вопрос:
program begenjov1997;
const
n = 40; {количество элементов массива}
m = 10000; {максимально возможное значение элемента}
var
a: array[1..n] of integer;
i,min: integer; b: boolean;
s: string;
begin
s: ='**** -=alphaeus=- ****';
for i: =1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i: =1 to n do a[i]: =random(m+1);
{ищем минимальный элемент с семеркой в конце в 8-ичной записи}
min: =a[1]; b: =false;
for i: =2 to n do
if (a[i] mod 8 = 7) and (a[i]< min) then
begin
min: =a[i];
b: =true;
end;
{выводим min}
writeln;
if b then writeln('минимальный элемент с семеркой в конце в 8-ичной записи = ',min)
else writeln('0 (нет такого элемента)');
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Химия
-
yangbomj22815.09.2020 19:57
-
Unicorn26112.02.2020 04:52
-
Vika463417.05.2022 06:35
-
арсюха620.02.2022 20:22
-
EricKornet18.03.2023 09:34
-
ValeryaKN1504.01.2021 19:58
-
Анна545455419.04.2020 11:02
-
mrtimkarov29.09.2022 21:47
-
Marishkakey31.08.2020 23:46
-
sunaway1p0ar9013.08.2022 12:39
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.