Question

PascalABC. Дана матрица A(M,N). Возвести в квадрат все отрицательные элементы матрицы.

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (m, n) := ReadInteger2('Количество строк и столбцов в матрице:');

 Writeln('*** Исходная матрица ***');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(5);

 Writeln(5 * a.ColCount * '-');

 a.Transform(t -> t < 0 ? t * t : t);

 Writeln('*** Полученная матрица ***');

 a.Println(5)

end.

Answer 2

type  

 tarray = array [1..50,1..50] of longint;

var

 a : tarray;

 n,m,i,j : longint;

begin

 readln(n,m);

 for i:=1 to n do

   for j:=1 to m do read(a[i,j]);

 for i:=1 to n do

   for j:=1 to m do

     if a[i,j]<0 then a[i,j]:=a[i,j]*a[i,j];

 for i:=1 to n do

   begin

     for j:=1 to m do write(a[i,j],' ');

     writeln;

   end;

end.

Вместо знака ? поставь максимальные значения N и M.

Answer 3

Для возврата в квадрат всех отрицательных элементов матрицы A(M, N) в языке программирования PascalABC, вы можете использовать вложенные циклы для обхода каждого элемента матрицы и проверки, является ли он отрицательным. Если элемент отрицательный, то его следует возвести в квадрат. Вот пример кода, который реализует это:

pascalCopy code
program SquareNegativeElements;

const
  M = 3; // Количество строк матрицы
  N = 4; // Количество столбцов матрицы

var
  A: array[1..M, 1..N] of Integer;
  i, j: Integer;

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

  // Возвести в квадрат отрицательные элементы
  for i := 1 to M do
  begin
    for j := 1 to N do
    begin
      if A[i, j] < 0 then
      begin
        A[i, j] := A[i, j] * A[i, j];
      end;
    end;
  end;

  // Вывод результата
  writeln('Матрица после возведения в квадрат всех отрицательных элементов:');
  for i := 1 to M do
  begin
    for j := 1 to N do
    begin
      write(A[i, j]:4);
    end;
    writeln;
  end;
end.

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