двумерный массив qbasic

[vinitar]

помогите пожалуйста решить задачку:
Задан двумерный массив действительных чисел размером 50х80. Составить прогу определения положения макс. и мин. элементов массива и поменять их местами. Если в массиве более 1 макс. элемента - определить положение последнего из них, если более 1 мин. элемента определить положение последнего. Значение макс. и мин. вывести на экран.

[Sazary]

Чтобы матрица влезла на экран, сделал M=5, N=8. Для вашей задачи поменяйте на 50 и 80.

CONST M = 5, N = 8
DIM a(M, N) AS SINGLE
DIM mini, maxi, minj, maxj, i, j AS INTEGER
CLS
RANDOMIZE TIMER
FOR i = 1 TO M
 FOR j = 1 TO N
  a(i, j) = INT(RND * 20)
  PRINT USING "####"; a(i, j);
 NEXT j
 PRINT
NEXT i
'---------
mini = 1
minj = 1
maxi = 1
maxj = 1
FOR i = 1 TO M
 FOR j = 1 TO N
  IF a(i, j) <= a(mini, minj) THEN
   mini = i
   minj = j
  END IF
  IF a(i, j) >= a(maxi, maxj) THEN
   maxi = i
   maxj = j
  END IF
 NEXT j
NEXT i
'-------
PRINT
PRINT USING "Minimum: a(## ,##)=###"; mini; minj; a(mini, minj)
PRINT USING "Maximum: a(## ,##)=###"; maxi; maxj; a(maxi, maxj)
a(mini, minj) = a(mini, minj) + a(maxi, maxj)
a(maxi, maxj) = a(mini, minj) - a(maxi, maxj)
a(mini, minj) = a(mini, minj) - a(maxi, maxj)
PRINT
FOR i = 1 TO M
 FOR j = 1 TO N
  PRINT USING "####"; a(i, j);
 NEXT j
 PRINT
NEXT i

END

[vinitar]

Помогите пожалуйста решить задачку в QBASICe:
Задан символьный массив А$. Составить прогу для формирования массива из первой буквы каждого слова. у меня полочилось так, но думаю сильно неправильно.
CLS
A$
PRINT MID$(A$,1,n)
END

[Sazary]

Как-то так:

DIM i, n, l AS INTEGER
DIM b AS STRING
DIM a AS STRING
CLS

INPUT "Vvedite stroku:"; a$
b$ = ""
i = 1
l = LEN(a$)
DO WHILE i <= l
 DO WHILE (MID$(a$, i, 1) = " ") AND (i <= l)
 i = i + 1
 LOOP
b$ = b$ + MID$(a$, i, 1)
 DO WHILE (MID$(a$, i, 1) <> " ") AND (i <= l)
 i = i + 1
 LOOP
LOOP

PRINT b$

END

Пример ввода:

Vvedite stroku:? adf dfk kkd   dkl das
adkdd

[vinitar]

вот спасибо, а LOOP это что такое если не секрет?

[Sazary]

Сообщение от vinitar

а LOOP это что такое если не секрет?

Переход к следующей итерации.
Конструкция такая:

DO WHILE <увловие>
.....
LOOP

Цикл выполняется, пока условие возвращает истину.