Юрий Бадюн

А в этой задачке в чём проблема, подскажите))
оН пишет next без for)
n=5
M=12
Dim B(1 to n, 1 to m)
Dim I,j As integer
Randomize timer
Print “ishodnay matrica”
For i=1 to n
For j=1 to m
B(I,j)=rnd*5
Next j
Next i
Print B(I,j)
end
For j=1 to m
P=1
For i=1 to n
If B(I,j)<>0 then p=p*B(I,j)
Print “ proizvedenie v stolbce=”;j;”=”;p
End

AlexZir

Вы в конце циклы не закрываете next-ами, потому и пишет.

__________________
Убить всех человеков!

Юрий Бадюн

Точно, спасибо)