Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
vipmurlyan
02.02.2023 07:20 •
Информатика
Дан массив из 20 чисел заданных случайным образом. найти: наименьшее нечетное число и его номер. вывести на экран исходный массив, наименьший нечетный элемент и его номер.
Показать ответ
Ответ:
Дашка5милашка
29.07.2020 09:59
Program znanija;
var A:array[1..20] of integer;
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое )
for i:=1 to 20 do A[i]:=random(9); // заполняем массив
for i:=1 to high(A) do // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;
for i:=1 to 20 do write(A[i]:3); // Выводит весь массив
writeln(); // просто перевод на новую строку для красоты
writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
69fff96fff69
24.06.2022 02:05
Составь рисунок их фигур. закрась области множество: - жуков пои-едов-желтым цветом; -жуков па-едов, не букву ш, -розовым цветом....
Nesnayka228
17.10.2021 03:10
Дано трехзначное число, в котором все цифры различны. Получить шесть чисел, образованных при перестановке цифр заданного числа. Написать программу на языке C; Сделать...
YuKruglova1
17.11.2020 09:47
С++ напишите программу , которая по заданному числу вычисляет его последнюю цифру...
ккккtttttttyyyyyy
25.06.2020 21:54
Между населёнными пунктами А, В, С, D, Е, F построены дороги, протяжённость которых (в километрах) приведена в таблице. Определите длину кратчайшего пути между пунктами...
рлжжх
25.12.2020 02:31
Написать в паскале! ввести три целых числа x, y, z. если хотя бы одно из них четное, то первому четному числу присвоить значение произведения этих чисел. сообразил только...
мозгилучше
02.05.2020 17:31
Рассмотреть иллюстратсю:А какому проевезеднияэю относится...
hope903
24.10.2021 16:19
между какими соединениями натуральнвх чисел заклюсино число, покажите неравенством и на каординатной прямой а) корень 38,6. б) 3+корень 65...
habibullina342
24.10.2021 16:19
Составьте сравнительную таблицу «Сережа в начале и в конце повести» по рассказу « А тем временем где – то…»....
hrndo
24.04.2021 09:23
учитель физкультуры спросил четверых семиклассников Кто из вас попал мячом окно Антон сказал это Борис , Борис сказал это не я , Вова сказал это Антон ,Гриша сказал это...
sdx2312
24.04.2021 09:23
Задания 1. Дайте определение термину «сонет».2.Укажите признаки сонета.3.Дайте развернутый ответ на вопрос: какие основные проблемы поднимает А.С.Пушкин в поэме «Цыганы»?4.Определите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var A:array[1..20] of integer;
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое )
for i:=1 to 20 do A[i]:=random(9); // заполняем массив
for i:=1 to high(A) do // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;
for i:=1 to 20 do write(A[i]:3); // Выводит весь массив
writeln(); // просто перевод на новую строку для красоты
writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.