нахождение произведений элементов (правильно ли я её написал)

[trollo_]

В матрице а(6, 8) найти произведения элементов каждого столбца и расположить эти произведения в порядке возрастания

СLS
DIM a(6, 8) AS INTEGER
DIM p(8) AS SINGLE
DIM i AS INTEGER
DIM j AS INTEGER
RANDOMIZE TIMER
PRINT "Matrica"
FOR i = 1 TO 6
 FOR j = 1 TO 8
  a(i, j) = INT(RND * 250) - 60
  PRINT a(i, j);
 NEXT j
 PRINT
NEXT i
FOR j = 1 TO 8
 p(j) = 1
 FOR i = 1 TO 6
  p(j) = p(j) * a(i, j)
 NEXT i
NEXT j
PRINT
PRINT "Proizvedeniya stolbcov"
FOR j = 1 TO 8
 PRINT p(j);
NEXT j
PRINT
FOR j = 1 TO 7
 FOR i = j + 1 TO 8
  IF p(i) < p(j) THEN SWAP p(i), p(j)
 NEXT i
NEXT j
PRINT
PRINT "Proizvedenia stolbcov v poryadke vozrastania"
FOR i = 1 TO 8
 PRINT p(i);
NEXT i

?

[was3110]

А сам не хочешь проверить?
Исправь в программе ранг матрицы (например 2х2 или 3х3) и числа пусть генерируются в пределах 0-10. И сразу будет видно, правильно или нет отработала программа. Если не получится найти ошибку, тогда пиши на ящик...

[andrewpalkin]

Вот студенты ленивые пошли Найдут программу в инете и сами не хотят проверить ее , работает или нет

[Марат05]

FOR i = j + 1 TO 8
IF p(i) < p(j) THEN SWAP p(i), p(j)
в i -значение поменяй!
А в коде у тебя много ошибок, сам исправляй!