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->tend.
Пример
Количество строк/столбцов в массиве: 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 2
S=-172