Имеются две матрицы размером 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

1кбайт- 1024 байта.  2 мбайта- 2048 кбайта