Naeel Maqsudov » 07 дек 2008, 19:10
№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
№1
[code]
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
[/code]