12. Задание ** паскале Заполнить двумерный массив случайным образом и найти произведение...

Question

12. Задание на паскале
Заполнить двумерный массив случайным образом и найти произведение больших 5 и кратных 3
Еще нужно сделать блок схему

Answer 1

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=MatrRandom(5,5,-99,99); mas.Println;
var a:=mas.ElementsByCol.Where(t->(t>5) and (t mod 3 =0));
 var b:=a.Aggregate(biginteger(1),(x,y)->x*y);
Writeln('Произведение =',b);
end.

---

---