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

CLS
  DIM A(5, 5)   '  Массив
DATA 1,1,2,3,4  '  Данные массива
DATA 5,6,7,8,9
DATA 10,11,12,13,14
DATA 15,16,17,18,19
DATA 20,21,22,10,24
 
  FOR iy = 1 TO 5  '  Данные в массив
     FOR ix = 1 TO 5
        READ A(ix, iy)
     NEXT
  NEXT
 
min = A(1, 1)     ' min из области значений
  FOR iy = 1 TO 5 ' шерстим массив, k - флаг наличия второго по минимальности
     FOR ix = 1 TO 5
        IF A(ix, iy) < min THEN min2 = min: min = A(ix, iy): k = 1
     NEXT
  NEXT
 
  PRINT "Min 1 ="; min  ' Печатаем результат
  IF k THEN PRINT "Min 2 ="; min2

CLS
  DIM a(5, 5)
RANDOMIZE TIMER
  FOR i = 1 TO 5
  FOR j = 1 TO 5
  a(i, j) = INT(RND * 50) + 1
  NEXT
  NEXT
  PRINT "massiv"
  FOR i = 1 TO 5
  FOR j = 1 TO 5
  PRINT a(i, j);
  NEXT
  PRINT
  NEXT
min1 = a(1, 1)
min2 = a(1, 2)
IF min2 < min1 THEN SWAP min2, min1
FOR i = 1 TO 5
FOR j = 1 TO 5
IF a(i, j) < min1 THEN min2 = min1: min1 = a(i, j) ELSE IF a(i, j) < min2 THEN min2 = a(i, j)
NEXT
NEXT
PRINT "min 1 ="; min1
PRINT "min 2 ="; min2
Print"ih summa=";min1+min2

CLS
DIM a(5, 5)
DATA 11,11,12,13,14
DATA 5,16,17,18,9
DATA 10,11,12,13,14
DATA 15,16,17,18,19
DATA 18,7,22,10,24
 
FOR iy = 1 TO 5
  FOR ix = 1 TO 5
    READ a(ix, iy)
    PRINT a(ix, iy);
  NEXT ix
  PRINT
NEXT iy
PRINT
 
IF a(1, 1) < a(2, 1) THEN
  min = a(1, 1): min2 = a(2, 1)
ELSE
  min = a(2, 1): min2 = a(1, 1)
END IF
 
FOR iy = 1 TO 5
  FOR ix = 1 TO 5
    IF a(ix, iy) < min THEN
      min2 = min: min = a(ix, iy)
    ELSE
      IF a(ix, iy) < min2 THEN min2 = a(ix, iy)
    END IF
NEXT ix, iy
 
PRINT "Min 1 ="; min
PRINT "Min 2 ="; min2

CLS
  DIM a(5, 5)
RANDOMIZE TIMER
  FOR i = 1 TO 5
  FOR j = 1 TO 5
  a(i, j) = INT(RND * 50) + 1
  NEXT
  NEXT
  PRINT "massiv"
  FOR i = 1 TO 5
  FOR j = 1 TO 5
  PRINT a(i, j);
  NEXT
  PRINT
  NEXT
min1 = a(1, 1)
min2 = a(1, 2)
IF min2 < min1 THEN SWAP min2, min1
FOR i = 1 TO 5
FOR j = 1 TO 5
n=n+1'считаем элементы массива
if n>2 then 'так как 2 элемента заданы, проверку начинаем с 3 элемента
IF a(i, j) < min1 THEN min2 = min1: min1 = a(i, j) ELSE IF a(i, j) < min2 THEN min2 = a(i, j)
end if
NEXT
NEXT
PRINT "min 1 ="; min1
PRINT "min 2 ="; min2
PRINT"ih summa=";min1+min2

RANDOMIZE TIMER
 CLS
 DIM A(5, 5) AS INTEGER
    FOR iy = 1 TO 5
       FOR ix = 1 TO 5
          A(ix, iy) = RND * 50
          PRINT A(ix, iy);
       NEXT: PRINT
    NEXT
Min(1) = A(1, 1)
Min(2) = A(2, 1)
  ix = 2: iy = 1
St: WHILE iy <> 6
  ix = (ix + 1) MOD 6: IF ix = 0 THEN iy = iy + 1: GOTO St
      At = A(ix, iy)
      U = 2 + (Min(1) < Min(2))
      IF At < Min(1) OR At < Min(2) THEN Min(3 - U) = Min(U): Min(U) = At
    WEND: IF Min(1) > Min(2) THEN SWAP Min(1), Min(2)
PRINT "Min1 ="; Min(1)
PRINT "Min2 ="; Min(2)
PRINT "Sum  ="; Min(1) + Min(2)

CLS
RANDOMIZE TIMER
DIM a(5, 5)
 
FOR iy = 1 TO 5
FOR ix = 1 TO 5
a(ix, iy) = INT(RND * 50) + 1
PRINT a(ix, iy);
NEXT ix
PRINT
NEXT iy
PRINT
 
min1 = a(1, 1): min2 = a(2, 1): IF min1 > min2 THEN SWAP min1, min2
 
FOR i = 3 TO 25
ix = (i - 1) MOD 5 + 1: iy = (i + 4) \ 5
IF a(ix, iy) < min1 THEN min2 = min1: min1 = a(ix, iy) ELSE IF a(ix, iy) < min2 THEN min2 = a(ix, iy)
NEXT i
 
PRINT "Min 1 ="; min1
PRINT "Min 2 ="; min2
PRINT "Suma ="; min1 + min2