QBasic,матрицы

[Verloren]

плиз хелп(((нуна 2 програмы(((
задание №1
задана матрица q размера m*n.подсчитать количество отрицательных элементов матрицы.вычислить сумму целочисленых положительных элементов первого столбца матрицы.
задание №2
задана матрица p размера n*n(если я правильно понимаю это значит что она квадратная?!)вычислить произведение НЕнулевых целочисленых элементов главной диагонали.

[Naeel Maqsudov]

№1

Код: Выделить всё

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

'сюда вставьте ввод данных, как в 
'задачах, которые Вам уже тут решали
'(пусть M - строки, N - столбцы)

NegNum=0
for i=1 to M 
  for j=1 to N
    if A(i,j)<0 then NegNum=NegNum+1
  next
next
print "Отрицатеольных элементов: "; NegNum

S=0;
for j=1 to N
  if A(1,j)>0 and A(1,j)=int(A(1,j)) then S=S+1
next
print "Сумма положительных целочислленных элементов первого столбца: "; S

[Verloren]

Naeel Maqsudov,
фпасипа)))а второе?:-[

[Naeel Maqsudov]

Даже не хотите попробовать переделать решение №1 в №2?

Код: Выделить всё

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

'сюда вставьте ввод данных, как в 
'задачах, которые Вам уже тут решали

P=0;
for j=1 to N
  if A(j,j)<>0 and A(j,j)=int(A(j,j)) then P=P*1
next
print "Произведение ненулевых целых элементов гл.диагонали: "; P