Найти сумму четырех наибольших и четырех наименьших элементов массива

DIM a(25)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO 25
a(i) = INT(RND * 50)
PRINT a(i);
NEXT
PRINT
FOR i = 1 TO 25
FOR j = 2 TO 25
IF a(j) < a(j - 1) THEN SWAP a(j), a(j - 1)
NEXT
NEXT
FOR i = 1 TO 4
smen = smen + a(i)
NEXT
FOR i = 22 TO 25
sbol = sbol + a(i)
NEXT
PRINT
PRINT "summa bolshih="; sbol, "summa menshih="; smen

DIM a(20), b(20), c(20)
RANDOMIZE TIMER
 
FOR i = 1 TO 20
a(i) = INT(RND * 50)
b(i) = INT(RND * 50)
c(i) = INT(RND * 50)
NEXT
PRINT "massiv a"
FOR i = 1 TO 20
PRINT a(i);
NEXT
PRINT "massiv b"
FOR i = 1 TO 20
PRINT b(i);
NEXT
PRINT "massiv c"
FOR i = 1 TO 20
PRINT c(i);
NEXT
PRINT
maxa = a(1)
maxb = b(1)
maxc = c(1)
FOR i = 1 TO 20
IF a(i) > maxa THEN maxa = a(i): noma = i
IF b(i) > maxb THEN maxb = b(i): nomb = i
IF c(i) > maxc THEN maxc = c(i): nomc = i
NEXT
PRINT "maximalnyj element ranshe vstretitsya"
IF noma < nomb AND noma < nomc THEN PRINT "v massive a"
IF nomb < noma AND nomb < nomc THEN PRINT "v massive b"
IF nomc < noma AND nomc < nomb THEN PRINT "v massive c"

INPUT "vvedite razmery massiva m,n ", m, n
DIM r(m, n)
RANDOMIZE TIMER
FOR i = 1 TO m
FOR j = 1 TO n
r(i, j) = INT(RND * 20)
NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO m
FOR j = 1 TO n
PRINT r(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO m
FOR j = 1 TO n
s = s + r(i, j)
NEXT
NEXT
IF s MOD 7 = 0 THEN PRINT "summa="; s; " delitsya na 7" ELSE PRINT "summa="; s; " ne delitsya na 7"
min = r(5, 1)
FOR j = 1 TO n
IF r(5, j) < min THEN min = r(5, j)
NEXT
PRINT "minimalnyj element 5 stroki="; min

DIM a(7, 7)
RANDOMIZE TIMER
FOR i = 1 TO 7
FOR j = 1 TO 7
a(i, j) = INT(RND * 20)
NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO 7
FOR j = 1 TO 7
PRINT a(i, j);
NEXT
PRINT
NEXT
p=1
FOR i = 1 TO 7
p=p*a(i,i)
next
print"proizvedenie glavnoy diagonali=";p
max1=a(1,1)
max3=a(3,1)
for j=1 to 7
if a(1,j)>max1 then max1=a(1,j)
if a(3,j)>max3 then max3=a(3,j)
next
print"raznost maximalnyh elementov max1-max3=";max1-max3