Дана матрица размерности 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