[100Б]В матрице 5x5 определить количество и номера однозначных элементов - PascalABC

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018Внимание! Если программа не работает, обновите версию!begin  Writeln('*** Исходная матрица ***');  var a:=MatrRandom(5,5,-9,9);   a.Println(3); Writeln(15*'-');  var s:=a.ElementsByRow.GroupBy(t->t).Select(t->(t.Key,t.Count))      .Where(t->t[1]>1).OrderBy(t->t[0]);  var c:=a.ElementsWithIndexes.OrderBy(t->t[0]).ToArray;  Writeln('Знач. Кол-во Индексы');  foreach var p in s do begin    Write(p[0]:3,p[1]:7,'   ');    var q:=p[0];    var s1:=c.IndexesOf(t->t[0]=q);    foreach var k in s1 do      Write('(',c[k][1]+1,',',c[k][2]+1,') ');    Writeln    endend.