Дан массив из 25 элементов, найти сумму четырех наибольших и четырех наименьших элементов - QBasic - Ответ 2184097

DATA 11,12,14,9,7,6,11,-20,55,333,222,111,11,900,-100,23,16,17,30,21,22,24,55,4444,500
DIM A(25)
FOR I=1 TO 25
READ A(I)
PRINT A(I)
NEXT
FOR I=1 TO 25
  FOR J=1 TO 24
IF A(J)<A(J+1) THEN SWAP A(J),A(J+1)
NEXT
NEXT
PRINT "SUMMA 4ETIREH NAIBOLSHIH=";A(1)+A(2)+A(3)+A(4)
PRINT "SUMMA 4ETIREH NAIMENSHIH=";A(25)+A(24)+A(23)+A(22)

INPUT "VVEDITE KOLI4ESTVO ELEMENTOV MASSIVA-";N
DIM A(N)
FOR I=1 TO N
INPUT "VVEDITE ELEMENT MASSIVA-";A(I)
NEXT
MAX=A(1)
FOR I=1 TO N-1
IF MAX<A(I+1) THEN MAX=A(I+1):MAXI=I+1
NEXT
IF MAX>2*MAXI THEN PRINT MAX^2 ELSE PRINT MAX

INPUT "VVEDITE KOLI4ESTVO ELEMENTOV V MASSIVE-";N
DIM A(N)
DIM B(N)
FOR I=1 TO N
INPUT "VVEDITE ELEMENT MASSIVA-";B(I)
A(N+1-I)=B(I)
NEXT
PRINT "ISHODNIY MASSIV:"
FOR I=1 TO N
PRINT B(I)
NEXT
PRINT "KOLI4ESTVO ELEMENTOV-";N
PRINT "POLU4ENNIY MASSIV:"
FOR I=1 TO N
PRINT A(I)
NEXT