Массивы Help!

[Dmitry_K]

Нужно написать программу на Бэйсике, которая делает следующее:

1. Пользователем задается размер двумерного массива - строк, столбцов.
2. Пользователем забивается этот массив.
3. Этот массив транспонируется.
4. Находится наименьший элемент массива. Выводится на экран.

Все.

Можно на обычном Бэйсике, никакая экранная графика не нужна, все в текстовом режиме. Первый и второй пункт - предполагаю будет использоваться команда DIM....
Помогите пожалуйста, срочно надо....

E-mail: n620@nsk.ru

[Yurich]

Что значит транспонируется?

Код прим. такой

Dim G(100, 100)

Input "Сколько строк в двумерном массиве M="; m
Input "Сколько столбцов в двумерном массиве N="; n


For i=0 to m-1
Print "Введите значения элементов ";i;"-й строки"
For j=0 to n-1
Print "Элемент G(";i;",";j;")=";
Input G(i,j)
Next j
Next i

rem Цикл определения минимума

Minimum=G(0,0)

For i=0 to m-1
For j=0 to n-1
If G(i,j)<Minimum Then Minimum=G(i,j)
Next j
Next i

Print "Минимальное значение в массиве"; Minimum

[Dmitry_K]

Что значит транспонируется?

Меняются местами столбцы и строки. (m,n) - (n,m)

Код прим. такой

Dim G(100, 100)

^^^^^^
Почему 100,100 ? Ведь число сторок и столбцов задается ниже???
Может тогда Dim G (m,n) ?

[ShadowCaster]

' Dim G(100, 100) - не правильно
Dim G()

Input "Сколько строк в двумерном массиве M="; m
Input "Сколько столбцов в двумерном массиве N="; n

ReDim G(m,n)

[Yurich]

Далеко не каждый Basic поддерживает REDIM. Dim G(100,100) сделано для запаса. В принципе, какой пользователь будет вводить с клавиатуры 10000 значений!? Зато не будет переполнения индекса.

[Kostyan]

Транспорирование матрицы (массива) - строки становятся столбцами а столбцы строками.

А насчет ReDim - это правильнее. И не поддерживается только в самых допотопных версиях Бейсика.