Чуть чуть модернизировать программу | qBasiq.

[O2Kanobe]

Помогите, подогнать данную программу под исходные данные. Тут нужно заменить пару элементов.

Исходные данные:
Исх.данные задаются самостоятельно в соответствии с поставленной задачей и при решении ЭВМ выводятся на печать. Дана квадратная матрица А(6,6). В матрице можно выделить три совокупности элементов А(y): элементы главной диагонали (при i=j): элементы верхнего треугольника (при i меньше j); элементы нижнего треугольника (при i больше j). Определить Номер столбца с наименьшим из положительных элементов верхнего треугольника. Если это четный столбец, то найти сумму его элементов, если нечетный, то произведение.

Randomize timer
Dim m(6,6)
s=0
k=0
n=6
For i=1 to 6
print

min=10000
for j=1 to 6
m(i,j)=-10 +rnd* 20
Print using "##.# "; m(i,j);
Next j
Next i
max = m(1,1)
For i =1 to n
For j =1 to n
if m(i,j) > max then
max = m(i,j)
mi=i
mj=j
end if
next j
next i
Print
Print
Print "naibolshii element"; max
max=m(1,1)
for i=1 to n
for j=1 to n
if m(i,j) > max then
max =m(i,j)
mi=i
mj=j
end if
next j
next i
print
print "max-mi" , mi; ",", mj; "j"; max
if mi = mj then
print "glavnaya diogonal"
end if
if mi > mj then print "nignii tre"
if mi < mj then
Print "werhnii tre"
For i=1 to 6
For j=1 to 6
If m(i,j)<0 then s=s+m(i,j): k=k+1: sr= s/k

Next j
Next i

Print "Srednee"'; sr
End if