Developing.ru

[b]255507394[/b].

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
...............................

Здравствуйте, дорогие товарищи.
Нужна ваша помощь. Есть задание, нужно составить в QBASIC одномерный массив (скажем, размерности 10), заполняемый с клавиатуры, при этом нужно, чтобы программа находила минимальное и максимальное значение и заполняла новый массив теми же элементами, которые были в исходном массиве за исключением этих мин. и макс. значений (фактически, нужно сжать массив).
С заполнением исходного массива и нахождением мин. и макс. значений проблем нет, но вот как создать сжатый массив - это пока для меня тайна покрытая мраком.

Ниже напишу, что у меня есть, и очень прошу помочь именно со вторым массивом.
[code]
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
...............................
[/code]