Question

Помогите пожалуйста решить 3 задание !! Пожалуйста!! Очень нужна помощь!!

Answer 1

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 2
S=-172