имеются две матрицы размером n на m заполненные случайными числами от 1 до 10, заполнить и вывести 3 матрицу, каждый элемент которой равен сумме предыдущих (Паскаль) можно пожалуйста решение полегче

Вопрос школьника по предмету Информатика

имеются две матрицы размером n на m заполненные случайными числами от 1 до 10, заполнить и вывести 3 матрицу, каждый элемент которой равен сумме предыдущих (Паскаль) можно пожалуйста решение полегче

Ответ учителя по предмету Информатика

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017

// Внимание! Если программа не работает, обновите версию!

begin

  var n:=ReadInteger(‘Количество строк в матрице:’);

  var m:=ReadInteger(‘Количество столбцов в матрице:’);

  Writeln(‘*** Исходная матрица A [‘,n,’,’,m,’] ***’);

  var a:=MatrRandom(n,m,1,10);

  a.Println(3); Writeln(3*a.ColCount*’-‘);

  Writeln(‘*** Исходная матрица B [‘,n,’,’,m,’] ***’);

  var b:=MatrRandom(n,m,1,10);

  b.Println(3); Writeln(3*a.ColCount*’-‘);

  Writeln(‘*** Матрица-результат С [‘,n,’,’,m,’] ***’);

  var c:=new integer[n,m];

  for var i:=0 to n-1 do

    for var j:=0 to m-1 do

      c[i,j]:=a[i,j]+b[i,j];

  c.Println(3)

end.

Пример

Количество строк в матрице: 4

Количество столбцов в матрице: 7

*** Исходная матрица A [4,7] ***

 10  9  4  5  9  1  3

  7  4  1  2  6  8 10

  2  5  3  9  8  3  3

  3  7  2  9  5  2 10

———————

*** Исходная матрица B [4,7] ***

  8  1  1  4  2  5  3

  8  1  8  8  3  1 10

  1  5  6  2  6  5  5

  8  6  5  9  4  1  7

———————

*** Матрица-результат С [4,7] ***

 18 10  5  9 11  6  6

 15  5  9 10  9  9 20

  3 10  9 11 14  8  8

 11 13  7 18  9  3 17