Исключить мин. и макс. значения
Добавлено: 01 окт 2010, 22:10
Здравствуйте, дорогие товарищи.
Нужна ваша помощь. Есть задание, нужно составить в QBASIC одномерный массив (скажем, размерности 10), заполняемый с клавиатуры, при этом нужно, чтобы программа находила минимальное и максимальное значение и заполняла новый массив теми же элементами, которые были в исходном массиве за исключением этих мин. и макс. значений (фактически, нужно сжать массив).
С заполнением исходного массива и нахождением мин. и макс. значений проблем нет, но вот как создать сжатый массив - это пока для меня тайна покрытая мраком.
Ниже напишу, что у меня есть, и очень прошу помочь именно со вторым массивом.
Нужна ваша помощь. Есть задание, нужно составить в QBASIC одномерный массив (скажем, размерности 10), заполняемый с клавиатуры, при этом нужно, чтобы программа находила минимальное и максимальное значение и заполняла новый массив теми же элементами, которые были в исходном массиве за исключением этих мин. и макс. значений (фактически, нужно сжать массив).
С заполнением исходного массива и нахождением мин. и макс. значений проблем нет, но вот как создать сжатый массив - это пока для меня тайна покрытая мраком.
Ниже напишу, что у меня есть, и очень прошу помочь именно со вторым массивом.
Код: Выделить всё
CLS
DIM a(10) AS INTEGER
FOR m = 1 TO 10
PRINT "введите елемент массива #";
INPUT a(m)
NEXT m
FOR m = 1 TO 10
PRINT a(m);
NEXT m
min=s(1)
max=s(1)
FOR m = 1 TO 10
IF a(m) <= min THEN
min=a(m)
END IF
IF a(m) >=maxl THEN
max=a(m)
END IF
NEXT m
PRINT min
PRINT max
...............................