Транспонировать матрицу A(n,n).В А транспонированной(N,N) найти max эл. в послед. столбце.(язык QBasic)

[Лиза)]

Транспонировать матрицу A(n,n).В А транспонированной(N,N) найти max элемент в последнем столбце.(язык QBasic)

Заранее спасибо

[Mad_Cat]

print "Введите N";
input N
Dim A(1 to N,1 to N)

'сюда вставьте ввод данных, как вас наверное учили 
for i=1 to N 
  for j=1 to N
    B(i,j)=A(j,i)
  next
next
k=1
for i=2 to N do
if b(i,N)>b(k,N) then k=i
next
print "максимум в последнем столбце: "; b(k,N)

[Лиза)]

в нашем институте нам ничего не объясняют...
нам дали,и решайте как хотите

[Novenkaja]

Лиза у нас примерно так же((((

[Лиза)]

Сама в шоке...
Табулирование еще хоть как-то понятно,
а массивы вообще никак
нам говорят:"читайте лекции"
а в лекциях об этом ничего не говорится

ну мы как бы пищевики,но ставит на инфу за просто так никто не собирается

[Son Of Pain]

Ну да, вас хотят научить быстро разбираться в незнакомых темах при минимуме исходных данных, пищевикам это тоже полезно же