Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Dasulya21
20.11.2022 00:47 •
Информатика
Водномерном массиве из n чисел переставить местами больше и маленькое (составить программу на бейсике)
Показать ответ
Ответ:
помидор2324
21.08.2020 13:24
REM пишу по памяти
CLS
INPUT n
xMin=n
xMax=0
min=10^9
max=-10^9
DIM a(n)
FOR i=1 TO 10
INPUT a(i)
IF a(i)<min THEN min=a(i) : xMin=i
IF a(i)>max THEN max=a(i) : xMax=i
NEXT i
k=a(xMax)
a(xMax)=a(xMin)
a(xMin)=k
END
0,0
(0 оценок)
Популярные вопросы: Информатика
Гена102
12.12.2022 02:42
Написать функцию season, принимающую 1 аргумент — номер месяца (от 1 до 12), и возвращающую время года, которому этот месяц принадлежит (зима, весна, лето или осень). Кто...
4EJLOBEK228
21.06.2022 06:38
если можно, то с объяснением )...
нананавай
25.03.2020 21:56
Якого значення набуде змінна F після виконання циклу? і := 1; F := 2; Repeat і := і + 1; F := F * і Until і 6;...
Bagila1234
07.07.2020 20:36
ХЕЛП написать программу на языке программирования Pascal! Вычислить произведение 8 чисел, введенных с клавиатуры....
Бегемот505
07.07.2020 20:36
решить, может быть несколько вариантов ответов...
lili2003love12
05.03.2022 12:09
Значения a, b и D хранятся в ячейках А1, В1 и D1 соответственно. Арифметическое выражение -b+(корень)D/2а может быть записано в табличном процессоре в следующем виде: = –...
Чикчирик12
16.11.2020 08:10
Паскаль, сделать через while, а не через break Создать одномерный массив В изN элементов. Элементами массива являются целые случайные числа, принадлежащие интервалу от 0 до...
Влад32321
01.01.2020 01:30
Усучасній інформаційній системі роль аппаратно-програмної частини відіграє...
0Jocker0
15.01.2023 11:23
ответе ! вставлять: you ll love it, it s a bore to watch, should see it, a must-see, miss it. a - jurassic world was full of action and great special effects. it s . don t...
Камилла1004
15.01.2023 11:23
Какие природные уникумы в сахалине?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
CLS
INPUT n
xMin=n
xMax=0
min=10^9
max=-10^9
DIM a(n)
FOR i=1 TO 10
INPUT a(i)
IF a(i)<min THEN min=a(i) : xMin=i
IF a(i)>max THEN max=a(i) : xMax=i
NEXT i
k=a(xMax)
a(xMax)=a(xMin)
a(xMin)=k
END