Другие языки программирования и технологии

пожалуйста,пожалуйста!!!!помогите с заданием в basic!!! я его не понимаю,а надо срочно сдать(

Дана матрица А(n?m). Получить вектор b1, b2, …, bn, где bi равно наименьшим значениям строк. Дана матрица А(n?m). Найти номера строк, где все элементы кратны 5. Дана квадратная матрица А(n? n). Найти максимальный элемент в заштрихованной части. Дана матрицы А(n?m). После строки с номером 3 поставить строку с номером n.
Под рукой оказался только qbasic.
Для 3 задачи нужна картинка.
Первая и вторая задачи:

CLS

DIM N, M AS INTEGER

DIM i, j AS INTEGER

DIM min AS INTEGER

DIM linesCount AS INTEGER
DIM numCount AS INTEGER

DATAINPUT:

INPUT "введите через запятую число строк и столбцов ", N, M

IF (N < 1 OR M < 1) THEN GOTO DATAINPUT

DIM A(N, M) AS INTEGER

DIM B(N) AS INTEGER

PRINT "Ввод матрицы A"

FOR i = 1 TO N

FOR j = 1 TO M

PRINT "введите элемент А ("; i; ","; j; ")"

INPUT A(i, j)

NEXT j

NEXT i

PRINT

PRINT "Поиск минимальных элементов в строках матрицы"

FOR i = 1 TO N

min = A(i, 1)

FOR j = 1 TO M

IF (A(i, j) < min) THEN min = A(i, j)

NEXT j

B(i) = min

NEXT i

FOR i = 1 TO N

PRINT " ", B(i), "минимальный элемент в строке ", i

NEXT i

PRINT

PRINT "Поиск строк с элементами кратными 5"

linesCount = 0

FOR i = 1 TO N

numCount = 0

FOR j = 1 TO M
IF (A(i, j) MOD 5 = 0) THEN numCount = numCount + 1

NEXT j

IF (numCount = M) THEN

PRINT " строка ", i

linesCount = linesCount + 1

END IF

NEXT i

IF (linesCount > 0) THEN

PRINT "всего ", linesCount, " строк, все элементы которых кратны 5"

ELSE

PRINT "нет строк, все элементы которых кратны 5"

END IF

END
Александр Целинский
Александр Целинский
2 433
Лучший ответ
> я его не понимаю

Что не понимаешь конкретно ?
Миша Фадеев
Миша Фадеев
32 502