Question

Дана матриця цілих чисел розміром 5x3. Замінити всі негативні елементи матриці на нулі. Вивести вміст матриці до обробки і після обробки. На мові Паскаль

Answer 1

Ответ:

--- PascalABC.NET 3.6.2 ---

begin

 var A := MatrRandom(5, 3, -99, 99);

 A.Println;

 println('=============================='); //Разделитель для консоли.

 A.Transform(p -> p < 0 ? 0 : p);

 A.Println;

end.

Answer 2

Ось приклад програми на мові Паскаль, яка замінює всі негативні елементи 5x3 матриці на нулі і виводить вміст матриці до та після обробки:

pascalCopy code
program ReplaceNegativesWithZeroes;

const
  Rows = 5;
  Columns = 3;

var
  Matrix: array[1..Rows, 1..Columns] of Integer;
  i, j: Integer;

begin
  // Заповнення матриці довільними значеннями (це можна замінити на ваші вхідні дані)
  for i := 1 to Rows do
    for j := 1 to Columns do
      Matrix[i, j] := Random(21) - 10; // Генеруємо випадкові числа від -10 до 10

  // Виведення вмісту матриці до обробки
  writeln('Матриця до обробки:');
  for i := 1 to Rows do
  begin
    for j := 1 to Columns do
      write(Matrix[i, j]:4);
    writeln;
  end;

  // Заміна негативних елементів на нулі
  for i := 1 to Rows do
    for j := 1 to Columns do
      if Matrix[i, j] < 0 then
        Matrix[i, j] := 0;

  // Виведення вмісту матриці після обробки
  writeln('Матриця після обробки:');
  for i := 1 to Rows do
  begin
    for j := 1 to Columns do
      write(Matrix[i, j]:4);
    writeln;
  end;

  readln;
end.

Ця програма спочатку заповнює матрицю випадковими числами в діапазоні від -10 до 10, потім замінює всі негативні числа на 0 і виводить початковий та змінений стан матриці.