и всё это сделать в бэйсике...хэлп!



а(n,m) as type 'Двумерный
b (n*m) as type 'Одномерный
For FirtsT = 1 to n
For SecT = 1 to m
b((FirstT-1)*m+SecT)=a(FirstT,SecT)
Next SecT
next FirstT


Сейчас этот форум просматривают: Majestic-12 [Bot], PetalBot и гости: 7