Способ (с помощью оператора цикла while. . . Wend). Input "введи размер матрицы " ; n, m

CLS

INPUT "введи размер матрицы "; n, m

DIM A(n, m)

PRINT "введи матрицу"

'Цикл по столбцам матрицы

FOR j = 1 TO m

'Цикл по строкам матрицы

FOR i = 1 TO n

'Ввод элементов массива

INPUT A(i,j)

NEXT i, j

FOR j = 1 TO m

'Присваивание начального значения счетчика цикла по строкам

i=1

'Поиск первого положительного элемента по столбцам

WHILE A(i,j)>=0 OR i < = n

i = i + 1

WEND

B(j) = A(i,j)

NEXT j

FOR j = 1 TO m

PRINT B(j)

NEXT j

END

пример 20

Дана матрица чисел. Заменить первый нулевой элемент в каждой строке на 1.

Программа

CLS

INPUT "введи размер матрицы "; n, m

DIM A(n, m)

PRINT "введи матрицу"

FOR i = 1 TO n

FOR j = 1 TO m

'Ввод элементов матрицы

INPUT A(i,j)

NEXT j, i

FOR i = 1 TO n

FOR j = 1 TO m

'Нахождение номера первого нулевого элемента в каждой строке

IF A(i,j) = 0 THEN K = j: EXIT FOR

NEXT j

'Замена первого нулевого элемента на 1

A(i,K) = 1

NEXT i

FOR i = 1 TO n

FOR j = 1 TO m

'Вывод матрицы

PRINT A(i,j);

NEXT j

PRINT

NEXT i

END