Question

Дана матриця цілих чисел розміром 5x3. Замінити всі негативні елементи матриці на нулі, а позитивні на «1». Вивести вміст матриці до обробки і після обробки. Скласти програму на мові програмування Pascal.

Answer 1

// PascalABC.NET

begin

 var a := MatrRandom(5, 3, -99, 99).Println;

 a.Transform(p -> p > 0 ? 1 : 0);

 Writeln;

 a.Print

end.

Answer 2

Звісно, ось приклад програми на мові Pascal для виконання даного завдання:

pascalCopy code
program MatrixProcessing;

const
  ROWS = 5;
  COLS = 3;

type
  Matrix = array[1..ROWS, 1..COLS] of Integer;

procedure InitializeMatrix(var mat: Matrix);
var
  i, j: Integer;
begin
  for i := 1 to ROWS do
    for j := 1 to COLS do
      mat[i, j] := Random(21) - 10; // Генеруємо випадкові числа в діапазоні від -10 до 10
end;

procedure ProcessMatrix(var mat: Matrix);
var
  i, j: Integer;
begin
  for i := 1 to ROWS do
    for j := 1 to COLS do
    begin
      if mat[i, j] < 0 then
        mat[i, j] := 0
      else
        mat[i, j] := 1;
    end;
end;

procedure PrintMatrix(const mat: Matrix);
var
  i, j: Integer;
begin
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
      Write(mat[i, j]:4);
    Writeln;
  end;
end;

var
  matrix: Matrix;

begin
  Randomize; // Ініціалізуємо генератор випадкових чисел
  InitializeMatrix(matrix);
  
  Writeln('Матриця до обробки:');
  PrintMatrix(matrix);
  
  ProcessMatrix(matrix);
  
  Writeln('Матриця після обробки:');
  PrintMatrix(matrix);
end.

Будь ласка, зверніть увагу, що дана програма генерує випадкові числа для заповнення матриці, а потім обробляє її згідно з вашою постановкою завдання.