Question

Задача на составление программы на языке Pascal. Вычислить сумму и число элементов матрицы A[6x6], находящихся под главной диагональю

Answer 1

Ответ:

В объяснении

Объяснение:

program zadacha;

const n= 6; m=6;

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

   i, j, s, k: integer;

begin

  RANDOMIZE;

for i:=1 to n do

           begin

              for j:=1 to m do

             begin

              a[i,j]:= random (100)-50;

              write(a[i,j]:5);

           end;

           writeln;

             end;  

s:=0;  

k:=0;

for i:=1 to n do

for j:=1 to m do

 if i>j then

        begin

          k:=k+1;

          s:=s+a[i,j];

        end;

writeln('Сумма=',s);

writeln('Количество=',k);

readln;

end.

Answer 2

Конечно, вот пример программы на языке Pascal, который вычислит сумму и количество элементов матрицы A[6x6], находящихся под главной диагональю:

pascalCopy code
program SumBelowDiagonal;

const
  N = 6; // Размер матрицы

var
  A: array [1..N, 1..N] of Integer; // Объявляем матрицу
  row, col: Integer;
  sum: Integer;
  count: Integer;

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

  // Инициализируем начальные значения суммы и счетчика
  sum := 0;
  count := 0;

  // Вычисляем сумму и подсчитываем количество элементов под главной диагональю
  for row := 2 to N do
    for col := 1 to row - 1 do
    begin
      sum := sum + A[row, col];
      count := count + 1;
    end;

  // Выводим результаты
  writeln('Сумма элементов под главной диагональю: ', sum);
  writeln('Количество элементов под главной диагональю: ', count);

  readln;
end.

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