Найти количество столбцов матрицы, в которых есть хотя бы один нулевой элемент - Pascal

Узнай цену своей работы

Формулировка задачи:

Найти количество столбцов матрицы Y(8,6), в которых есть хотя бы один нулевой элемент(без использования процедур).

Решение задачи: «Найти количество столбцов матрицы, в которых есть хотя бы один нулевой элемент»

textual
Листинг программы
const n=8;m=6;
var
  Y:array[0..n,1..m] of integer;
  i,j,k:integer;
begin
  writeln('Введите матрицу по строкам:');
  for i:=1 to n do begin
    write('Строка ',i,':');
    for j:=1 to m do begin
      read(y[i,j]);
      if y[i,j]=0 then y[0,j]:=1;
    end;
  end;
  for i:=1 to m do k:=k+y[0,i];
  writeln('количество столбцов матрицы, в которых есть хотя бы один нулевой элемент:',k);
end.

Объяснение кода листинга программы

  1. Объявляется константа n со значением 8 и m со значением 6.
  2. Объявляется переменная Y - двумерный массив размером (0..n, 1..m) заполненный целыми числами.
  3. Объявляются переменные i, j, k - все целочисленные.
  4. Выводится сообщение Введите матрицу по строкам:.
  5. Запускается цикл для заполнения матрицы: для каждой строки i от 1 до n выполняются следующие действия:
    • Выводится сообщение Строка X:, где X - номер строки.
    • Запускается вложенный цикл для каждого элемента j в строке от 1 до m:
      • Считывается значение и сохраняется в Y[i,j].
      • Если значение равно 0, то устанавливается флаг в первом элементе (Y[0,j]) столбца, равный 1.
  6. Запускается цикл для подсчета столбцов, в которых найден хотя бы один элемент равный 0: для каждого столбца i от 1 до m увеличивается счетчик k на значение Y[0,i].
  7. Выводится сообщение количество столбцов матрицы, в которых есть хотя бы один нулевой элемент:k``.
  8. Завершение программы.

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

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