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

// 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

а) язык программирования

Объяснение:

К инструментальному программному обеспечению относят: системы программирования – для разработки новых программ, например, Паскаль, Бейсик. Обычно они включают: редактор текстов, обеспечивающий создание и редактирование программ на исходном языке программирования (исходных программ), транслятор, а также библиотеки подпрограмм; инструментальные среды для разработки приложений, например, C++, Delphi, Visual Basic, Java, которые включают средства визуального программирования; системы моделирования, например, система имитационного моделирования MatLab, системы моделирования бизнес-процессов BpWin и баз данных ErWin и другие.

const

 n = 4;

begin

 var a := new real[n, n](

   (1.17, 0.53, -0.84, -0.34),

   (0.64, -0.72, -0.43, 0.17),

   (0.32, 0.43, -0.93, 0.23),

   (1.35, -0.72, 1.38, 0.35));

 var b := new real[n](1.15, 0.15, -0.48, 0.88);

 var t := ArrFill(n, True);

 for var j := 0 to n - 1 do begin

   (var amin, var imin) := (real.MaxValue, -1);

   for var i := 0 to n - 1 do

     if (abs(a[i, j]) < amin) and t[i] then

       (imin, amin) := (i, a[i, j]);

   if amin = 0 then begin

     t[imin] := False;

     break

   end;

   for var k := 0 to n - 1 do

     a[imin, k] /= amin; b[imin] /= amin;

   t[imin] := False;

   for var i := 0 to n - 1 do begin

     var coef := -a[i, j] / a[imin, j];

     if i <> imin then begin

       for var k := 0 to n - 1 do

         a[i, k] := a[imin, k] * coef + a[i, k];

       b[i] := b[imin] * coef + b[i]

     end

   end

 end;

 b.PrintLines

end.