// 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, то в отрезок не попадает. б) Тут имеем либо точка точно меньше A или точно больше B. Однозначно подходит нам. в) перепишем, используя закон Де Моргана Т.к. у нас , то число одновременно больше B и меньше A не существует.
100 = 1100100 - это правильное решение)