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

По условию работаем с массивом

С массивом, так с массивом

Вот, другое дело

  const n= 15; var   a:array[1..n] of integer;   i,c:integer; begin   for i:=1 to n do    begin      read(a[i]);      if a[i]<a[1] then      c:=c+1;    end;  writeln(c); end.

const n = 15;var a:array[1..n] of integer;i,k:integer;begin  for i:=1 to n do begin    a[i]:=random(101)-50;write(a[i]:4);  end;  writeln;  for i:=2 to n do if a[i]<a[1] then k:=k+1;  writeln('Меньше чем ',a[1],' получилось: ', k);end.Тестовое решение12  13  19 -14 -23 -12 -11  37 -48 -45  30 -12  47  17  50Меньше чем 12 получилось: 7