Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
1705081705
09.08.2021 15:59 •
Информатика
Qbasic. , ! дано целое число n и вектор из n целых чисел. вывести номер первого экстремального (т.е. минимального или максимального) элемента вектора.
Показать ответ
Ответ:
dmitrykim2000
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 оценок)
Популярные вопросы: Информатика
ekaterinabraun5
15.01.2021 18:32
Program test3; Var p : string; q : real; t: integer; d: char; k: boolean; Begin p:= [‘128’ / 128 / 12.8 / true]; q:= [12.8 / ‘128’ / true]; t:= [128 / ‘128’ / 12.8 / true]; d:=...
skshhd
11.11.2020 11:40
Переведите код из Паскаля в Пайтон program Z51; var a, sum: integer; begin readln(a); sum := 0; while a 0 do begin if (a mod 2 0) and (a mod 3 = 0) then sum := sum + 1; readln(a);...
JetBalance97
01.08.2021 23:01
Даны схемы состава компьютера и информационного обмена. Выберите из них правильный вариант...
Androidekstas
25.05.2023 07:24
1. Для чего предназначен графический редактор? 2. Что такое пиксель? 3. Как сохранить рисунок? 4. Как получить копирование «со следом»? 5. Как изменить стиль фигуры? 6. Что такое...
юлияlike1302
27.07.2022 05:13
Исполнитель черепашка перемещается на экране компьютера, оставляя след в виде линии. в каждый конкретный момент известно положение исполнителя и направление его движения. у исполнителя...
akrikay13
27.07.2022 05:13
Напишите программу для вычеркивания в данном слове всех букв, стоящих на нечетных местах после буквы а написать на visual basic...
Terraria10299
05.02.2021 02:17
Не могу никак написать программу в c++ сумма прописью суть программы вот в чем: 2 числа должны складываются и ответ выводится в записном в виде. (пример 2+2= четыре)...
kofhagje46
15.11.2020 19:54
Текст длинной 24576 символов закодирован с алфавита содержащего 1024 символа. сколько килобайт занимает в памяти этот текст?...
Про100карина666
30.11.2021 07:46
Составить с любым словосочетанием сложное предложение,выполнить его синтаксический разбор: Сердечная болезнь сердечный друг; медвежьялапа медвежья шуба медвежья услуга; лисий ворот-лисья...
чебурек48
30.11.2021 07:46
Жер бетіндегі ауаның бір жерден екінші жерге аусуын қалаи аитадыА)суВ)жауынС)қарD)жел с вопросом это на казахском ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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