PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin var n:=ReadInteger('Количество строк/столбцов в массиве:'); var a:=MatrRandom(n,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var (K,L):=ReadInteger2('Укажите номера столбца и строки:'); var e:=a[L-1,K-1]; Writeln('S=',a.ElementsByRow.Where(t->t<e).Sum)end.
ПримерКоличество строк/столбцов в массиве: 7 79 9 98 -38 -9 -64 -69 90 -67 -76 -53 -83 -43 70 85 27 37 51 -75 9 98 -74 -39 -33 34 30 -61 -46 -81 59 -19 -40 3 -21 -71 -41 -21 18 -9 -2 25 -88 34 -84 -73 46 -14 -75 -37----------------------------Укажите номера столбца и строки: 5 2S=-172