В экселе. Объясните как сделать по пунктам, на какие кнопки надо нажать, ничего не могу найти..

Question

Информатика: В экселе. Объясните как сделать по пунктам, на какие кнопки надо нажать, ничего не могу найти..

RihDest · Accepted Answer

// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),1,9); a.Println;
var d:=new dictionary<integer,integer>;
foreach var e in a do d[e]:=d.Get(e)+1;
var s:=d.Where(x->x.Value>1).Select(x->x.Key);
if s.Count=0 then Writeln('Нет дублирующихся элементов')
else begin
    Write('Дублирующиеся элементы: '); s.Println;
    Write('В порядке возрастания: '); s.Sorted.Println
    end
end.

Пример
n= 20
6 8 7 3 8 6 4 9 9 3 6 1 6 6 9 7 2 5 9 9
Дублирующиеся элементы: 6 8 7 3 9
В порядке возрастания: 3 6 7 8 9

MOGZ ответил