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

Формулировка задачи:

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

Код к задаче: «Дана матрица размерности N на M. Положительные элементы матрицы переписать подряд в одномерный массив В. - VB»

textual
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

5   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ