Question

Дана целочисленная матрица. Опрелелить, имеются ли среди её элементов отрицательные числа. Pascal. Опять миссклик, не в тот предмет.

Answer 1

Среди целочислительное матрицой найдутся отрицательные числа

Answer 2

Нет проблем! Помогу вам написать алгоритм на языке Pascal, который проверит, есть ли в целочисленной матрице отрицательные числа.

В Pascal можно создать двумерный массив, который представляет собой матрицу, и затем пройтись по всем его элементам, чтобы проверить наличие отрицательных чисел.

Вот пример кода на Pascal:

pascalCopy code
program CheckNegativeNumbers;

const
  Rows = 3; // Количество строк в матрице
  Cols = 3; // Количество столбцов в матрице

type
  Matrix = array[1..Rows, 1..Cols] of Integer;

var
  myMatrix: Matrix;
  i, j: Integer;
  hasNegative: Boolean;

begin
  // Вводим элементы матрицы
  writeln('Введите элементы матрицы ', Rows, 'x', Cols, ':');
  for i := 1 to Rows do
    for j := 1 to Cols do
      readln(myMatrix[i, j]);

  // Проверяем наличие отрицательных чисел
  hasNegative := False;
  for i := 1 to Rows do
    for j := 1 to Cols do
      if myMatrix[i, j] < 0 then
      begin
        hasNegative := True;
        break; // Если нашли отрицательное число, выходим из цикла
      end;

  // Выводим результат
  if hasNegative then
    writeln('В матрице есть отрицательные числа.')
  else
    writeln('В матрице нет отрицательных чисел.');

  readln;
end.

Выше представлен простой пример программы, которая запрашивает у пользователя элементы матрицы 3x3 и затем проверяет, есть ли в ней отрицательные числа. В зависимости от результата, программа выводит соответствующее сообщение. Вы можете изменить значение констант Rows и Cols, чтобы задать матрицу другого размера.