Question

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

Answer 1

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
    end
end.