Найти количество ненулевых элементов в каждом столбце матрицы - Pascal ABC
Формулировка задачи:
Задание - сделайте так, чтобы программа высчитывала количество ненулевых элементов в каждом столбце
Вот шапочка от массива
Решение задачи: «Найти количество ненулевых элементов в каждом столбце матрицы»
textual
Листинг программы
program P10_0; uses crt; const n=8; type mas = array [1..n, 1..n] of integer; var m:mas; i,j,k:integer; begin clrscr; textcolor(1); randomize; for i:=1 to n do begin for j:=1 to n do begin m[i,j]:=-3+random(7); write(m[i,j]:4); end; writeln; end; writeln('Количество нулей в столбцах'); for j:=1 to n do begin k:=0; for i:=1 to n do if m[i,j]=0 then inc(k); writeln(j,'=',k); end; end.
Объяснение кода листинга программы
В данном коде объявлены переменные m
, i
, j
, k
типа mas
, integer
.
В первой строке кода происходит инициализация переменной m
массивом типа mas
размером 8х8.
Далее, во втором блоке цикла for
, происходит заполнение каждого элемента массива m
случайным числом от -3 до 6.
В третьем блоке цикла for
, вычисляется количество нулей в каждом столбце матрицы. Для этого, в цикле for
перебираются строки массива m
. Если элемент массива равен нулю, то счетчик k
увеличивается на единицу.
В конце программы выводится количество нулей в каждом столбце матрицы.