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

dalikha06 dalikha06    3   18.02.2020 22:58    2

Ответы
AveMartells AveMartells  11.10.2020 08:07

                                          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 ='))"


Pascal Ввести двумерный массив, состоящую из [n,m] элементов. Найдите сумму всех элементов.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика