Question

Pascal
Ввести двумерный массив, состоящую из [n,m] элементов. Найдите сумму всех элементов.

Answer 1

                                          PascalABC.NET

begin

 var m := MatrRandom(ReadInteger('n ='),ReadInteger('m ='),0,9).Println;

 var sum: integer;

 m.ForEach(x -> begin sum+=x end);

 Writeln('Сумма элементов массива: ',sum);

end.

//Если нужно вводить элементы  массива самому измени:

"MatrRandom(ReadInteger('n ='),ReadInteger('m ='),0,9)"

на

"ReadMatrInteger(ReadInteger('n ='),ReadInteger('m ='))"