Question

Дан целочисленный двумерный массив, размерности n х m. Заменить все элементы на их квадраты. Паскаль.

Answer 1

===== PascalABC.NET =====

begin

 var (n, m) := ReadInteger2('Введите n и m:');

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

 a.Println(6);

 a.Transform(p -> p * p);

 Writeln;

 a.Println(6)

end.

Answer 2

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

Вот пример кода на языке Паскаль (Pascal), который реализует данную задачу:

pascalCopy code
program SquareElements;

const
  n = 3; // Задайте желаемое значение n
  m = 4; // Задайте желаемое значение m

var
  arr: array[1..n, 1..m] of Integer;
  i, j: Integer;

// Процедура для замены элементов массива на их квадраты
procedure SquareArrayElements(var arr: array of array of Integer);
begin
  for i := 1 to n do
    for j := 1 to m do
      arr[i, j] := arr[i, j] * arr[i, j];
end;

// Процедура для вывода массива на экран
procedure PrintArray(const arr: array of array of Integer);
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(arr[i, j]:4);
    Writeln;
  end;
end;

begin
  // Заполним массив значениями для примера
  for i := 1 to n do
    for j := 1 to m do
      arr[i, j] := i + j;

  Writeln('Исходный массив:');
  PrintArray(arr);

  SquareArrayElements(arr);

  Writeln('Массив после замены на квадраты:');
  PrintArray(arr);
end.

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