Найти количество ненулевых элементов в каждом столбце матрицы - 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 увеличивается на единицу. В конце программы выводится количество нулей в каждом столбце матрицы.

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы