1. Ввести массив а[n] с клавиатуры. Найти количество максимальных элементов. 2. Ввести массив а[n] с клавиатуры. Все отрицательные элементы заменить на ноль

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018Внимание! Если программа не работает, обновите версию!№1begin  var a:=ReadArrInteger(ReadInteger('n='));  Writeln('Кол-во максимальных элементов: ',a.Where(t->t=a.Max).Count)end.№2begin  var a:=ReadArrInteger(ReadInteger('n='));  a.Transform(t->t<0 ? 0 : t); a.Printlnend.