Question

Вычислить сумму положительных элементов главной диагонали матрицы В. Исходную матрицу вывести на экран. Delphi

Answer 1

--------------------------

Answer 2

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

1. Объявить и инициализировать матрицу В с помощью двумерного массива. Например, можно объявить матрицу размером 3x3 и заполнить ее случайными положительными и отрицательными числами:

var
  B: array[1..3, 1..3] of Integer;
  i, j: Integer;
begin
  // Заполнение матрицы случайными числами
  Randomize;
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
    begin
      B[i, j] := Random(20) - 10; // Случайное число от -10 до 10
    end;
  end;

2. Вычислить сумму положительных элементов главной диагонали матрицы В. Для этого необходимо пройти по элементам главной диагонали и проверить, является ли элемент положительным:

var
  sum: Integer;
begin
  sum := 0;
  for i := 1 to 3 do
  begin
    if B[i, i] > 0 then
    begin
      sum := sum + B[i, i];
    end;
  end;

3. Вывести исходную матрицу на экран. Для этого можно использовать циклы для прохода по элементам матрицы и вывода их значений:

  // Вывод матрицы на экран
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
    begin
      Write(B[i, j], ' ');
    end;
    Writeln;
  end;

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

var
  B: array[1..3, 1..3] of Integer;
  i, j, sum: Integer;
begin
  // Заполнение матрицы случайными числами
  Randomize;
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
    begin
      B[i, j] := Random(20) - 10; // Случайное число от -10 до 10
    end;
  end;

// Вычисление суммы положительных элементов главной диагонали
  sum := 0;
  for i := 1 to 3 do
  begin
    if B[i, i] > 0 then
    begin
      sum := sum + B[i, i];
    end;
  end;

// Вывод матрицы на экран
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
    begin
      Write(B[i, j], ' ');
    end;
    Writeln;
  end;

// Вывод суммы положительных элементов главной диагонали
  Writeln('Сумма положительных элементов главной диагонали: ', sum);
end.