Пример 23

Дана матрица чисел. Удалить все столбцы, где есть нули.

Программа

CLS

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

DIM A(n, m), B(m)

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

FOR i = 1 TO n

FOR j = 1 TO m

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

INPUT A(i,j)

NEXT j, i

FOR j = 1 TO m

FOR i = 1 TO n

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

IF A(i,j) = 0 THEN flag = 1

NEXT i

'Если в столбце нулевой элемент найден, то номер столбца запоминается в массиве В

IF flag = 1 THEN L = L + 1: B(L) = j

flag = 0

NEXT j

C = 0

FOR z = 1 TO L

FOR j = B(z - C) TO m – 1

FOR i = 1 TO n

A(i,j) = A(i, j + 1)

NEXT i,j

C = C + 1

m = m – 1

NEXT z

FOR i = 1 TO n

FOR j = 1 TO m

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

PRINT A(i,j);

NEXT j

PRINT

NEXT i

END

Задачи для дополнительного решения

Задача 1. Дан двумерный массив целых чисел. Удалить из него первый из столбцов, количество нулей, в котором равно заданному числу.

Задача 2. Дан двумерный массив. Удалить строку и стол­бец, на пересечении которых расположен наименьший по модулю элемент массива.

Задача 3^*. Дан двумерный массив. Удалить из него первую из строк, сумма элементов которых не превышает заданное число.

Задача 4. Дан двумерный массив. Удалить из него две строки, одна из которых расположена перед s1-й строкой, а вторая — перед s2-й.

Задача 5. Дан двумерный массив. Удалить из него все столбцы с s1-гопо s2-й (s1 < s2).