Question

Паскаль. Дана матрица, состоящая из 0 и 1. Написать программу, которая посчитает количество единиц и количество нулей в матрице

Answer 1

Держи! Код в файле :) 

Answer 2

Для подсчета количества единиц и нулей в матрице, состоящей из 0 и 1, можно написать программу на языке Паскаль. Вот пример такой программы:

program CountZerosAndOnes;

const
  N = 3; // размерность матрицы

var
  matrix: array[1..N, 1..N] of Integer;
  zerosCount, onesCount: Integer;
  i, j: Integer;

begin
  // Заполнение матрицы случайными значениями 0 и 1
  Randomize;
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      matrix[i, j] := Random(2);
    end;
  end;

// Подсчет количества единиц и нулей
  zerosCount := 0;
  onesCount := 0;
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      if matrix[i, j] = 0 then
        zerosCount := zerosCount + 1
      else
        onesCount := onesCount + 1;
    end;
  end;

// Вывод результатов
  writeln('Количество нулей: ', zerosCount);
  writeln('Количество единиц: ', onesCount);
end.

В этой программе мы используем двумерный массив `matrix`, чтобы хранить значения матрицы. Затем мы заполняем матрицу случайными значениями 0 и 1 с помощью функции `Random`. Далее, мы проходим по всем элементам матрицы и увеличиваем счетчики `zerosCount` и `onesCount` в зависимости от значения элемента. Наконец, мы выводим результаты подсчета.

Примечание: В данном примере размерность матрицы задана константой `N`, равной 3. Вы можете изменить значение `N` в соответствии с вашими потребностями.

Надеюсь, это поможет вам решить задачу подсчета количества единиц и нулей в матрице на языке Паскаль! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.