Basiс, масив, минимум+скалярное произведение

[)(aTaBbl4]

Здраствуйте! Помогите с написанием проги по заданию: Вычислить скалярное произведение для вектора-строки и вектора-столбца на пересечение которой находится минимальный элемент квадратной матрицы. Число строк матрицы не более 15. (Бейсик)

[Naeel Maqsudov]

место минимума:

Код: Выделить всё

MinI=1:MinJ=1
for i=1 to N:for j=1 to N
  if A[i,j]<A[MinI,MinJ] then MinI=i:MinJ=j
next:next

произведение строки и столбца, пересекающихся в MinI,MinJ

Код: Выделить всё

P=0
for i=1 to N
  P=P+A[MinI,i]*A[i,MinJ]
next

[)(aTaBbl4]

СпС большое!! =)

[)(aTaBbl4]

Хотя что-то скаляр не правильно считается вот прога которая получилась:
CLS
DO
INPUT "vvedite kol strok ot 2 do 15"; n
LOOP UNTIL (n >= 2) AND (n <= 15)
DO
INPUT "vvedite kol stolbcov ot 2 do 15"; m
LOOP UNTIL (m >= 2) AND (m <= 15)
DIM A(n, m)
FOR j = 1 TO m
FOR i = 1 TO n
A(i, j) = INT(RND * 100 - 50)
PRINT USING "####"; A(i, j);
NEXT i
PRINT
NEXT j
MinI = 1: MinJ = 1
FOR i = 1 TO n: FOR j = 1 TO n
IF A(i, j) < A(MinI, MinJ) THEN MinI = i: MinJ = j
NEXT: NEXT
PRINT "minimalnoe znachenie="; A(MinI, MinJ)
p = o
FOR i = 1 TO n
p = p + A(MinI, i) * A(i, MinJ)
NEXT
PRINT "scoliarnoe proizvedenie="; p
END

[Naeel Maqsudov]

У Вас по условию задачи матрица квадратная.
Т.е. не бывает M и N. Бвывает только N, причем оно же и число строк, ичисло столбцов.