Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Алтын12938849к9ку9
01.12.2020 10:52 •
Информатика
Qbasic. , ! дано целое число n и вектор из n целых чисел. вывести номер первого экстремального (т.е. минимального или максимального) элемента вектора.
Показать ответ
Ответ:
Марта09
05.10.2020 19:04
DIM N%, M%, m0%
CLS
INPUT N
DIM A%(N)
FOR i = 1 TO N
INPUT A(i)
NEXT i
M = A(1)
m0 = A(1)
FOR i = 2 TO N
IF A(i) > M THEN
M = A(i)
END IF
IF A(i) < m0 THEN
m0 = A(i)
END IF
NEXT i
i = 1
WHILE (A(i) <> M) AND (A(i) <> m0)
i = i + 1
WEND
PRINT i
END
0,0
(0 оценок)
Популярные вопросы: Информатика
alinabilalova161
26.06.2022 08:40
Қою- Гиперсілтеме командасын орындау...
buli4ka
28.01.2022 15:26
УМОЛЯЮ ВАС Я В ИНФОРМАТИКЕ ВООПШЕ НЕ ШАРЮ Задание 1. Дайте развернутые ответы на вопросы: 1 Что такое компьютерная сеть? Каково ее назначение? 2 Покажите различные соединения в сеть...
mary357vozd80s
07.07.2022 15:45
Стр. 43. 8 задание. Проанализируйте изображения на рисунке 2.8. Какие инструменты и приемы понадобятся для создание каждого из них?...
BogYato
22.08.2020 06:11
Запишите на С++ Создайте массив из 10 ячеек, числа введите на клавиатуре от 1 до 10. Выполните сортировку выбором. ...
damirgaraischi
28.05.2022 04:12
Нужна я не понимаю информатику...
DenchikKing
08.04.2020 06:52
Представьте себе лвс ethernet со скоростью передачи 10 мбит/сек, которая объединяет 45 компьютеров с 3 обычных концентраторов-повторителей. трафик в сети слишком велик, что приводит...
dima140504
18.07.2020 22:10
Какое число кот должен сказать? ...
imputedchimi
28.11.2021 23:05
Complete the past simple questions. then guess the answers. holywood. 1. when hollywood (become) the centre of the film industry? a) 1914 b) 1984 2. why film directors (choose) hollywood?...
Maxyim
28.11.2021 23:05
Решить , я вас вычислить какой объем кислорода необходимо взять для сжигания 11,2 л бутана 2) напишите и назовите по 3 изомеры для гексана вас ! 15 )...
paul1905
28.11.2021 23:05
Напишите сочинение « совесть это безмолвный подсказчик к которому прислушиваешся всё больше и больше или всё меньше и меньше.по плану: 1я понимаю эту фразу так: есть люди совистливые...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
CLS
INPUT N
DIM A%(N)
FOR i = 1 TO N
INPUT A(i)
NEXT i
M = A(1)
m0 = A(1)
FOR i = 2 TO N
IF A(i) > M THEN
M = A(i)
END IF
IF A(i) < m0 THEN
m0 = A(i)
END IF
NEXT i
i = 1
WHILE (A(i) <> M) AND (A(i) <> m0)
i = i + 1
WEND
PRINT i
END