Developing.ru

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

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

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

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