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

Узнай цену своей работы

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

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

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

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.2 из 5
Похожие ответы