Question

Задан числовой массив, состоящий из 15 элементов. Подсчитать и вывести на экран количество элементов в массиве, которые меньше его первого элемента.

Answer 1

// PascalABC.NET 3.3

begin
  var a:=ArrRandom(15,10,90); a.Println;
  writeln('количество элементов, которые меньше первого элемента = ',
   a.Where(x->x<a[0]).Count);
end.

Пример:
70 87 27 66 77 12 80 27 87 89 64 86 75 12 44
количество элементов, которые меньше первого элемента = 7

Answer 2

В чем фишка писать на PascalABC.NET?
Если в школе пишут на PascalABC. Там синтаксис очень сильно различается.