Question

Дан двумерный массив. Определить сумму квадратов всех элементов массива. Паскаль

Answer 1

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

begin

 var (m, n) := ReadInteger2('Число строк и столбцов:');

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

 a.Println.ElementsByRow.Sum(p -> p * p).Print

end.

Answer 2

Конечно, вот пример программы на языке Pascal, который вычисляет сумму квадратов всех элементов двумерного массива:

pascalCopy code
program SumOfSquares;

const
  Rows = 3;
  Cols = 3;

var
  arr: array[1..Rows, 1..Cols] of Integer;
  i, j: Integer;
  sumOfSquares: Integer;

begin
  // Заполнение массива значениями
  for i := 1 to Rows do
    for j := 1 to Cols do
    begin
      Write('Введите значение для элемента [', i, '][', j, ']: ');
      ReadLn(arr[i, j]);
    end;

  // Вычисление суммы квадратов элементов
  sumOfSquares := 0;
  for i := 1 to Rows do
    for j := 1 to Cols do
      sumOfSquares := sumOfSquares + Sqr(arr[i, j]);

  // Вывод результата
  WriteLn('Сумма квадратов всех элементов массива: ', sumOfSquares);

  ReadLn;
end.

Вы можете изменить значения констант Rows и Cols в соответствии с размерами вашего массива. Программа попросит вас ввести значения для каждого элемента массива и затем вычислит сумму квадратов элементов и выведет результат на экран.