Найти все нулевые элементы матрицы и их количество - PascalABC.NET

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

Дана матрица m*n заполним матрицу. Найти все нулевые элементы. Найти их количество. Найти их индексы

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

Листинг программы

const n=2;m=2;
var a:array[1..m,1..n] of double; i,j,c:integer;
begin
 for i:=1 to n do begin
  for j:=1 to m do begin 
    Readln(a[i,j]);
  end; writeln;
 end; writeln;
 
 for i:=1 to n do begin
  for j:=1 to m do begin 
    if(a[i,j]=0) then begin inc(c); write(i:5,j:5); end;
  end; writeln;
 end; writeln;
 
 writeln('Кол-во нулевых = ',c); readln;
end.

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

В этом коде представлена программа на языке PascalABC.Net, которая выполняет следующие действия:

Инициализирует переменные:
- n = 2 (размер матрицы по строкам)
- m = 2 (размер матрицы по столбцам)
- a:array[1..m,1..n] of double (объявление двумерного массива a размером m на n, где m = 2 и n = 2)
- i, j, c: integer (объявление трех целочисленных переменных i, j, c)
Заполняет массив a значениями с помощью цикла for и функции Readln.
Выводит матрицу a на экран с помощью цикла for и функции Writeln.
Проверяет каждый элемент массива a на равенство нулю с помощью цикла for и условного оператора if. Если элемент равен нулю, то увеличивается значение переменной c на 1.
Выводит на экран координаты каждого нулевого элемента с помощью функции Write(i:5, j:5).
Выводит на экран количество нулевых элементов в матрице a с помощью функции Writeln и конкатенации строк ('Кол-во нулевых = ' + c.ToString).
Запрашивает ввод с помощью функции Readln, чтобы программа могла получить ввод пользователя и продолжить выполнение.