Question

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

Answer 1

const n=5;

var a: array[1..n,1..n] of real;

i,j: integer;

s: real;

begin

s:=0;

writeln('Введите матрицу:');

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

for i:=1 to n do for j:=1 to n do

if(a[i,j]>0) then s:=s+a[i,j]*a[i,j];

write('сумма квадратов положительных элементов: ',s);

end.

Answer 2

Для решения данной задачи в Pascal, вы можете выполнить следующие шаги:

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

Пример реализации на Pascal:

pascalCopy code
program SumOfPositiveSquares;

const
  N = 3; // Размерность квадратной матрицы (можете изменить на нужное значение)

type
  Matrix = array[1..N, 1..N] of Real;

var
  A: Matrix;
  i, j: Integer;
  sumOfSquares: Real;

// Функция для подсчета суммы квадратов положительных элементов
function SumOfPositiveSquaresInMatrix(matrix: Matrix): Real;
var
  i, j: Integer;
  sum: Real;
begin
  sum := 0.0;
  for i := 1 to N do
    for j := 1 to N do
      if matrix[i, j] > 0 then
        sum := sum + sqr(matrix[i, j]);
  Result := sum;
end;

begin
  // Здесь проинициализируйте матрицу A с действительными числами

  // Пример инициализации матрицы (можете изменить на свою)
  A[1, 1] := 1.5;
  A[1, 2] := -2.0;
  A[1, 3] := 3.3;
  A[2, 1] := -4.2;
  A[2, 2] := 5.1;
  A[2, 3] := -6.7;
  A[3, 1] := 7.0;
  A[3, 2] := 8.8;
  A[3, 3] := -9.9;

  sumOfSquares := SumOfPositiveSquaresInMatrix(A);
  writeln('Сумма квадратов положительных элементов матрицы: ', sumOfSquares:0:2);
end.

Обратите внимание, что в приведенном примере я инициализировал матрицу A значениями для наглядности. Вы должны заменить их своей матрицей или использовать пользовательский ввод для заполнения матрицы.