В одномерном массиве х(15) найти: минимальный из элементов, больших двух, и поменять его местами с первым. Массив нужно вводить вручную.
В одномерном массиве х(15) найти: минимальный из элементов, больших двух, и поменять его местами с первым. Массив нужно вводить вручную.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы