Список предметов

Математика
Литература
Алгебра
Русский язык
Геометрия
Английский язык
Химия
Физика
Биология
Другие предметы
История
Обществознание
География
Українська література
Українська мова
Казак тили
Беларуская мова
Информатика
Экономика
Право
В одномерном массиве х(15) найти: минимальный из элементов, больших двух, и поменять его местами с первым. Массив нужно вводить вручную.
спросил от в категории Информатика

1 Ответ

CONST n = 15
DIM x(1 TO n) AS INTEGER
CLS
PRINT "Введите 15 чисел"
im = 1
FOR i = 1 TO n
   INPUT x(i)
   IF x(i) > 2 AND x(i) < x(im) THEN im = i
NEXT i
DIM t AS INTEGER
t = x(1)
x(1) = x(im)
x(im) = t
FOR i = 1 TO n
   PRINT x(i);
NEXT i

Тестовое решение
Введите 15 чисел
? 5
? 8
? -3
? 11
? 4
? 8
? 4
? 0
? 5
? 2
? 9
? 3
? 11
? 6
? 4
 3  8 -3  11  4  8  4  0  5  2  9  5  11  6  4
ответил от
x
...