Дана матрица размерности 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д