Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Мастер008
01.01.2020 05:33 •
Информатика
Дан массив из 20 чисел заданных случайным образом. найти: наименьшее нечетное число и его номер. вывести на экран исходный массив, наименьший нечетный элемент и его номер.
Показать ответ
Ответ:
stiles1996
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 оценок)
Популярные вопросы: Информатика
sauleshka3
12.12.2020 13:34
Написать программу-калькулятор,. в программе паскаль ....
кефирка5623
05.04.2021 00:23
Как вывести первую сотню чисел кратных семи, паскаль...
iten228
18.04.2023 01:56
Выберете смешанную модель формула фотография схема текст...
dovgelarina195p08ovl
24.05.2022 04:34
Paint 3д растарлық редакторы не үшін қолданылады ...
nikitarin0
11.03.2022 15:33
Укажите номера имен файлов соответствующих маске *труд???.*...
891447819danilDanil
09.11.2020 21:40
Назовите политические события последнего времени,которые вас обрадовали и которые огорчили.объясните почему...
catnizamova
09.11.2020 21:40
Подготовьте сообщение об эволюции человека...
arsenii2309
09.11.2020 21:40
Эссе на тему что свято в моей семье...
Виника5634
09.11.2020 21:40
Одинакова ли температура моря ночью и днем? почему?...
oxle
09.11.2020 21:40
Рассчитайте объём газа полученного при взаимодействии 8,1 грамма алюминия с раствором серной кислоты (h2so4)? , желательно оформить сразу с дано , и заранее : з...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.