Определить количество столбцов матрицы, содержащих хотя бы один нулевой элемент - Pascal (81092)
Формулировка задачи:
PASCAL Дана целочисленная прямоугольная матрица
Определить:
-количество столбцов, содержащих хотя бы один нулевой элемент;
-номер строки, в которой находится самая длинная серия одинаковых элементов.
Решение задачи: «Определить количество столбцов матрицы, содержащих хотя бы один нулевой элемент»
textual
Листинг программы
program pr; var i,n,m,cout,j:integer; a:array[1..20,1..20]of integer; begin writeln('Введите количество строк матрицы'); readln(n); writeln('Введите количество столбцов матрицы'); readln(m); randomize; for i:=1 to n do for j:=1 to m do a[i,j]:=random(21)-10; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:3); writeln; end; cout:=0; for i:=1 to m do for j:=1 to n do if a[j,i]=0 then begin inc(cout); break; end; writeln; writeln('Количество столбцов содержащих хотя бы один нулевой элемент: ',cout); end.
Объяснение кода листинга программы
- Программа начинается с объявления переменных: i, n, m, cout и j, которые будут использоваться для выполнения различных операций в коде.
- Затем объявляется массив a, который будет представлять собой матрицу размером n на m, где каждый элемент будет представлен целым числом.
- Далее происходит чтение количества строк и столбцов матрицы с помощью функции readln().
- Используя функцию randomize(), генерируются случайные числа для заполнения матрицы.
- В цикле for происходит заполнение матрицы случайными числами от 1 до 20 (исключая 20).
- После заполнения матрицы происходит вывод ее элементов с помощью цикла for.
- Затем происходит подсчет количества столбцов, содержащих хотя бы один нулевой элемент, с помощью двух вложенных циклов for.
- Наконец, выводится количество таких столбцов.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д