Задан динамический двумерный массив. Найти сумму четырех случайных элементов массива и...

Question

Задан динамический двумерный массив. Найти сумму четырех случайных элементов массива и произведение 9 случайных элементов массива.Результат вывести на экран.
Язык реализации Pascal.

Answer 1

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

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

function RandomElement(m, n: integer; a: array[,] of integer) :=

   a[Random(0, m - 1), Random(0, n - 1)];

begin

 var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');

 Writeln('*** Исходный массив ***');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(4); Println(4 * a.ColCount * '-');

 var s := 0;

 loop 4 do

   s += RandomElement(m, n, a);

 var p := 1;

 loop 9 do

   p *= RandomElement(m, n, a);

 Println('Сумма 4 случайных', s);

 Println('Произведение 9 случайных', p)

end.

---