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

Question

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

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ReadArrInteger(ReadInteger('n='));
  Writeln('Кол-во максимальных элементов: ',a.Where(t->t=a.Max).Count)
end.

№2

begin
  var a:=ReadArrInteger(ReadInteger('n='));
  a.Transform(t->t<0 ? 0 : t); a.Println<br>end.