Question

Дана матрица размером 3*4. Найти сумму элементов матрицы. В паскале. Обязательно использовать функцию или процедуру

Answer 1

Var c:integer;

procedure generate(var c:integer);
var ar:array[1..3,1..4] of integer;
a,b:integer;
begin;
for a:=1 to 3 do
begin;
writeln;
for b:=1 to 4 do
begin;
ar[a,b]:=random(10);
c+=ar[a,b];
write(ar[a,b]:4);
end;
end;
end;

begin;
randomize;
writeln('Matrix:');
generate(c);
writeln;
writeln('Result',c);
end.

Answer 2

Вот пример программы на языке Pascal, которая находит сумму элементов матрицы размером 3x4:

program SumMatrixElements;

const
  ROWS = 3;
  COLS = 4;

type
  Matrix = array [1..ROWS, 1..COLS] of Integer;

var
  myMatrix: Matrix;

procedure FillMatrix(var matrix: Matrix);
var
  i, j: Integer;
begin
  writeln('Введите элементы матрицы:');
  for i := 1 to ROWS do
    for j := 1 to COLS do
    begin
      write('Элемент [', i, ',', j, ']: ');
      readln(matrix[i, j]);
    end;
end;

function SumMatrixElements(matrix: Matrix): Integer;
var
  i, j, sum: Integer;
begin
  sum := 0;
  for i := 1 to ROWS do
    for j := 1 to COLS do
      sum := sum + matrix[i, j];
  SumMatrixElements := sum;
end;

begin
  FillMatrix(myMatrix);
  writeln('Матрица заполнена. Сумма элементов матрицы: ', SumMatrixElements(myMatrix));
end.

Программа использует две процедуры: `FillMatrix`, чтобы заполнить матрицу значениями, и `SumMatrixElements`, чтобы вычислить сумму элементов матрицы. Обратите внимание, что размеры матрицы (ROWS и COLS) определены как константы, и программа принимает ввод элементов матрицы от пользователя.