Используется метод прямого обмена. Наименьшее число сдвигается в "левый край"
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=MatrRandom(5,5,-99,99); mas.Println;
var b:=mas.ElementsByCol.Where(t->(t>5) and (t mod 3 =0));
var c:=b.Aggregate(biginteger(1),(x,y)->x*y);
Writeln('Произведение =',c)
end.
Как в школе учат :
const n=5; m=5;
var
a,b,c,i,j:integer;
mas:Array [1..n,1..m] of integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=random(100);
c:=1;
for i:=1 to n do
for j:=1 to m do
if (mas[i,j]>5) and (mas[i,j] mod 3 =0 ) then
c:=c*mas[i,j];
Writeln('Произведение =',c);
end.
X*x+2*x-15=0
решаем кв уравнение
x=3
<span>а) “наличия аттестата о среднем образовании достаточно для поступления в институт”; нет
б) “наличие аттестата о среднем образовании необходимо для поступления в институт”; да
в) “если целое число делится на 6, то оно делится на 3”; да
г) “подобие треугольников является необходимым условием их равенства”; да
д) “подобие треугольников является необходимым и достаточным условием их
равенства”; нет
е) “треугольники подобны только в случае их равенства”; нет
ж) “треугольники равны только в случае их подобия”; да
з) “равенство треугольников является достаточным условием их подобия”; да
и) “для того, чтобы треугольники были неравны, достаточно, чтобы они были
неподобны”; да
к) “для того, чтобы четырёхугольник был квадратом, достаточно, чтобы его диагонали
были равны и перпендикулярны”.</span>нет