// 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.
Если это Excel, то
СРЗНАЧ
СРЗНАЧЕСЛИ
СЧЁТ
СЧЁТЕСЛИ
МЕДИАНА
МОДА.НСК
СРОТКЛ
КВАДОТКЛ
МИН
МАКС
Есть и другие, это основные.