Дана матрица размерности N на M. Положительные элементы матрицы переписать подряд в одномерный массив В.

@zhenis otarbay · Регистрация: 22.04.2013

Author24 — интернет-сервис помощи студентам

1. Дана матрица размерности N на M. Положительные элементы матрицы переписать подряд в одномерный массив В.

@Улугбек · 24.04.2013, 16:56

Visual Basic

sub poloj()
dim mas() AS integer
dim mas1() as integer
n=int(val(inputbox ("введите строку массива n")))
m=int(val(inputbox ("введите строку массива m")))
redim mas(n,m)
s=0
for i=1 to n
     for j=1 to m
        mas(i,j)=input("vvedite элемент массива")
        if mas(i,j)>0 then 
                               s=s+1
                               mas1(s)=mas(i,j)
        end if
     next j
next i
end sub

просто имз любого место вызивай собитию poloj()

@zhenis otarbay 0 / 0 / 0 Регистрация: 22.04.2013 Сообщений: 13
		1
	Дана матрица размерности N на M. Положительные элементы матрицы переписать подряд в одномерный массив В. 22.04.2013, 19:21. Показов 1226. Ответов 1 Метки нет (Все метки) 1. Дана матрица размерности N на M. Положительные элементы матрицы переписать подряд в одномерный массив В. 0

	24.04.2013, 16:56