Для начала, если есть знак , то нам не подходит, т.к. элемент может равняться данному числу. исходя из этого пункт Г точно не подходит. Рассмотрим а) не означает, что . Перепишем . Т.к. у нас множества, то можно рассматривать знак как пересечение. Соответственно знак как объединение. т.е. в а) в результате пересечения двух таких интервалов получим просто . Данное уравнение нам вполне подходит. Если наша точка точно меньше A, то в отрезок не попадает. б) Тут имеем либо точка точно меньше A или точно больше B. Однозначно подходит нам. в) перепишем, используя закон Де Моргана Т.к. у нас , то число одновременно больше B и меньше A не существует.
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var a:=MatrRandom(4,4,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var sn:=a.ElementsByRow.Where(t->t<0).Sum; Writeln('Сумма отрицательных элементов равна ',sn); var sd:=0; for var i:=0 to a.RowCount-1 do sd+=a[i,i]; Writeln('Сумма элементов на главной диагонали равна ',sd); end.
исходя из этого пункт Г точно не подходит.
Рассмотрим а)
не
т.е. в а) в результате пересечения двух таких интервалов получим просто
б) Тут имеем либо точка точно меньше A или точно больше B. Однозначно подходит нам.
в) перепишем, используя закон Де Моргана
Т.к. у нас
Как-то так.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(4,4,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var sn:=a.ElementsByRow.Where(t->t<0).Sum;
Writeln('Сумма отрицательных элементов равна ',sn);
var sd:=0;
for var i:=0 to a.RowCount-1 do sd+=a[i,i];
Writeln('Сумма элементов на главной диагонали равна ',sd);
end.
Пример
*** Исходный массив ***
55 -36 70 19
79 14 5 -5
79 -9 -62 20
-71 69 -34 66
Сумма отрицательных элементов равна -217
Сумма элементов на главной диагонали равна 73