Question

В матрице А(3,3) найти количество нулевых элементов. Программа ПАСКАЛЬ

Answer 1

===== PascalABC.NET =====

begin

 var a:=MatrRandom(3, 3, -3, 3);

 a.Println(3);

 a.ElementsByRow.Count(p -> p = 0).Println

end.

Answer 2

Вот пример программы на Pascal, которая находит количество нулевых элементов в матрице A(3,3):

rustCopy code
program CountZeros;
var
  A: array[1..3, 1..3] of Integer; // объявляем матрицу
  i, j, count: Integer;
begin
  count := 0; // инициализируем счетчик нулей
  // заполняем матрицу случайными числами от 0 до 9
  for i := 1 to 3 do
    for j := 1 to 3 do
      A[i,j] := Random(10);
  // выводим матрицу на экран
  writeln('Matrix A:');
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
      write(A[i,j]:4);
    writeln;
  end;
  // ищем нулевые элементы и увеличиваем счетчик
  for i := 1 to 3 do
    for j := 1 to 3 do
      if A[i,j] = 0 then
        Inc(count);
  writeln('Number of zeros in matrix A: ', count);
end.

Программа сначала заполняет матрицу A случайными числами от 0 до 9, затем выводит ее на экран, и, наконец, ищет нулевые элементы и подсчитывает их количество. Результат выводится на экран.