с клавиатуры вводится массив из N элементов (0-100)
а) найти максимальный и минимальный баллы
б) найти количество баллов <30
в) найти количество баллов = 100
г) вывести 3 различных лучших результата

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrInteger('Вводите:',ReadInteger('n='));  Writeln('Баллов, меньших 30: ',a.Where(t->t<30).Count);  Writeln('Баллов, равных 100: ',a.Where(t->t=100).Count);  Write('Три различных лучших результата: ');  a.Distinct.OrderByDescending(t->t).Take(3).Printlnend.Примерn= 23Вводите: 92 51 93 33 7 60 47 71 24 17 49 35 7 31 6 74 51 86 51 86 100 48 54Баллов, меньших 30: 5Баллов, равных 100: 1Три различных лучших результата: 100 93 92