В каждом втором столбике матрицы проверить элементы на ноль - Pascal ABC
Формулировка задачи:
Заполнить матрицу случайными числами. В каждом втором столбике матрицы проверить элементы на ноль.
Если этот элемент найден, то перекинуть этот столбик в новую матрицу.
Должно выглядеть так:
Решение задачи: «В каждом втором столбике матрицы проверить элементы на ноль»
textual
Листинг программы
const m = 7; var a: array [1..m, 1..m] of integer; b: array [1..m, 1..m div 2] of integer; i, j, k, n: integer; begin randomize; writeln('Source matrix:'); for i := 1 to m do begin for j := 1 to m do begin a[i, j] := random(19) - 9; write(a[i, j]:3) end; writeln end; k := 0; for j := 1 to m div 2 do for i := 1 to m do if a[i, j * 2] = 0 then begin inc(k); for n := 1 to m do b[n, k] := a[n, j * 2]; break end; writeln('Even columns with zero elements:'); if k = 0 then writeln('Not found.') else for i := 1 to m do begin for j := 1 to k do write(b[i, j]:3); writeln end; readln end.
Объяснение кода листинга программы
- Создаётся матрица размером m x m, где m - 7.
- Переменная a содержит матрицу, а переменная b содержит копию матрицы a, где каждый элемент в каждой второй строке скопирован в соответствующий элемент в первой половине матрицы b.
- Используется цикл for для заполнения матрицы a случайными числами от 0 до 18.
- Используется вложенный цикл for для проверки каждого элемента в каждой второй строке матрицы a на равенство нулю.
- Если элемент равен нулю, увеличивается счетчик k.
- Если все элементы во всех строках равны нулю, выводится сообщение
Not found
. - Если хотя бы один элемент не равен нулю, выводится сообщение
Even columns with zero elements:
. - Используется еще один вложенный цикл for для вывода элементов матрицы b, которые соответствуют элементам в первой половине матрицы a, где каждый элемент соответствует элементу в той же позиции в матрице a.
- Выводится номер строки, в которой был найден первый ненулевой элемент (если он был найден).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д