Вычислить произведение элементов массива, расположенных между максимальным и минимальным элементами

nightnova

Всем привет, вот нужно написать программу для экзамена, но увы я не знаю этот язык, у нас его не преподовали. Помогите пожалуйста... В одномерном массиве, состоящем из 15 вещественных элементов (значения эле-ментов массива задать случайными числами из интервала [-10, 10]), вычислить произведение элементов массива, расположенных между максимальным и мини-мальным элементами. Сформировать из этих элементов новый массив
1 ответ

nightnova

CLS
RANDOMIZE TIMER
DIM x(15)
 
FOR i = 1 TO 15
   x(i) = 20 * RND - 10
   PRINT x(i)
NEXT
PRINT
 
max = x(1)
min = max
imax = 1
imin = 1
 
FOR i = 1 TO 15
   IF max < x(i) THEN
      max = x(i)
      imax = i
   END IF
 
   IF min > x(i) THEN
      min = x(i)
      imin = i
   END IF
NEXT
 
IF ABS(imax - imin) > 1 THEN
   p = 1
   a = imin
   b = imax
 
   IF imax < imin THEN SWAP a, b
 
   FOR i = a + 1 TO b - 1
      p = p * x(i)
   NEXT
   LOCATE 15, 15
   PRINT "P ="; p
   PRINT
 
   DIM y(a + 1 TO b - 1)
 
   FOR i = a + 1 TO b - 1
      y(i) = x(i)
      PRINT y(i)
   NEXT
ELSE
   PRINT "TAKIH ELEMENTOV NET"
END IF
END