Насколько минимальный элемент первого массива отличается от минимального элемента второго - QBasic

Формулировка задачи:

Вот еще задачки. 1)Даны два массива по 15 элементов в каждом.Насколько минимальный элемент первого массива отличается от минимального элемента второго массива. Результат распечатать в виде: Массив 1: Массив 2: MIN 1= MIN2= 2)В массиве,содержащем не более 20 элементов,подсчитать среднее арифметическое для положительных элементов.если среднее больше заданного числа,положительные элементы исходного массива уменьшить на это число,а отрицательные-увеличить.найти минимальный элемент полученного массива и его номер. 3)дан массив A из N элементов.переставить максимальный и минимальный элементы массива. результат распечатать в виде: число элементов: min= max= новый массив: надеюсь вы мне поможете.

Решение задачи: «Насколько минимальный элемент первого массива отличается от минимального элемента второго»

textual
                            Листинг программы 
                        

                            CLS
INPUT "VVEDITE KOLI4ESTVO ELEMENTOV MASSIVA="; N
DIM A(N)
FOR I = 1 TO N
INPUT "VVEDITE ELEMENT MASSIVA-"; A(I)
NEXT
MAX = A(1)
MIN = A(1)
FOR I = 1 TO N - 1
IF MIN > A(I + 1) THEN MIN = A(I + 1): MINNUM = I + 1
IF MAX < A(I + 1) THEN MAX = A(I + 1): MINNUM2 = I + 1
NEXT
IF MINNUM = 0 THEN MINNUM = 1
SWAP A(MINNUM), A(MINNUM2)
PRINT "MIN="; MIN
PRINT "MAX="; MAX
PRINT "NOVIY MASSIV:"
FOR I = 1 TO N
PRINT A(I)
NEXT
END
                        