490435091865272320": 0,"255365393659461632": 25,"605864053604220938": 0,"552524151429136404": 0,"355041016023351307": 0,"208458991984967680": 200,"522599594090299392": 0,"456916674818342948": 0,"265039933087940611": 0,"442622475692539914": 0,"457111228028944384": 0,"508856661415297026": 0,"602066126142439434": 0,"404941587689242626": 0,"500999544650334218": 0,"273767898378534922": 0,"451275709487513601": 0,"345428911687204864": 0,"616635440723656721": 0,"624943448499159042": 0,"261809378422685698": 0,"368448429090930688": 0}
превратить эту таблицу в array object.keys(эта json таблица).и сделать сортировку по уменьшению
// PascalABC.NET 3.0,сборка 1076
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=ArrRandom(n,-50,50);
Writeln('Исходная последовательность');
a.Println;
Writeln('Сумма элементов: ',a.Sum);
Write('Кол-во четных, кратных пяти: ');
Writeln(a.Where(x-> x mod 10 = 0).Count)
end.
Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1