// PascalABC.NET 3.2, сборка 1383 от 09.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(5); Writeln(5*a.ColCount*'-'); Writeln('Сумма элементов массива: ', a.Rows.SelectMany(x->x).Sum) end.
F(4)=3*4-2*2=8
F(5)=3*8-2*4=16
F(6)=3*16-2*8=32
F(7)=3*32-2*16=64