Question

СРОЧНО! ПАСКАЛЬ! Вычислить сумму всех элементов матрицы размером 3*3

Answer 1

Ответ:

program z;

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

i,j,s:integer;

begin

s:=0;

writeln ('Матрица:');

for i:= 1 to 3 do

begin

for j:=1 to 3 do

begin

a[i,j]:=random(10);

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

s:=s+a[i,j]

end;

writeln;

end;

writeln('Сумма всех элементов матрицы : ',s)

end.

Объяснение:

используем вложенные циклы с параметром:

внешний - for i:= 1 to 3 do (строки)

внутренний - for j:=1 to 3 do (столбцы)

a[i,j]:=random(10); - присваивание элементам матрицы случайного значения из промежутка [0; 9]

write(a[i,j]:3); - вывод значения элемента матрицы на экран

s:=s+a[i,j] - подсчёт суммы элементов матрицы

Answer 2

Конечно, я могу помочь вам написать программу на языке программирования Pascal для вычисления суммы всех элементов матрицы размером 3x3.

Вот пример кода на Pascal:

program SumMatrixElements;

var
  matrix: array[1..3, 1..3] of Integer;
  row, col, sum: Integer;

begin
  // Заполнение матрицы (можете изменить значения по своему усмотрению)
  for row := 1 to 3 do
    for col := 1 to 3 do
      matrix[row, col] := row + col;

// Инициализация суммы
  sum := 0;

// Вычисление суммы всех элементов матрицы
  for row := 1 to 3 do
    for col := 1 to 3 do
      sum := sum + matrix[row, col];

// Вывод результата
  writeln('Матрица:');
  for row := 1 to 3 do
  begin
    for col := 1 to 3 do
      write(matrix[row, col]:4);
    writeln;
  end;

writeln;
  writeln('Сумма всех элементов матрицы: ', sum);

end.

В этом коде создается матрица размером 3x3 и заполняется значениями, равными сумме номера строки и номера столбца. Затем вычисляется сумма всех элементов матрицы, и результат выводится на экран. Вы можете изменить значения матрицы по своему усмотрению.