вычислить количество "к"

[Karlen1990]

дается значения "К" в табилце- 7.0 8.0 9.0 7.0 6.5 5.0 4.5 6.5 7.0 7.0 8.5 10.0 11.0 10.5 12.0 11.0 7.5 7.0 8.0 8.5 9.0 7.0 6.5 7.0 7.0 8.0 8.0 10.0 9.5 9.0 8.0 7.0 7.0 6.5 13.0 12.0 7.0 6.5 9.0 7.0 11.0 8.0 7.0 9.5 7.5 6.5
нужно вычислить количество "к", которая расположена в [к1,к2] диапазоне. например вычислить количество "к" которая находится в 9<=к<=13

[Serge_Bliznykov]

язык программирования какой? И что не получается то?
Банальный перебор всех элементов таблицы в цикле с наращиванием счётчика, когда очередной элемент попадает в диапазон.

на Delphi (Паскале) это будет выглядеть примерно так:

K:=0;
for i:=Low(Massiv1) to High(Massiv1) do
   if (Massiv1[i]>=k1) and (Massiv1[i]<=k2) then Inc(K);

[Karlen1990]

ответ нужен на паскале. не считывает правильно

[Leshii]

ответ нужен на паскале. не считывает правильно

Вы из файла читаете? И вот ещё что, хотелось бы полное условие, если таковое имеется.

[rrrFer]

p(_,_,[],0).
p(A,B,[H|T],R):-H>A,H<B,!,p(A,B,T,M),R=M+1;p(A,B,T,R).

на прологе. Не проверял.

[rrrFer]

а не заметил что на паскале надо

[rrrFer]

int k1 = 9, k2 = 13;
std ::cout << std ::count_if( vec .begin(), vec .end(), [=](int a) ->bool { return a > k1 && a < k2; } );

На ++ (тоже не проверял)

[Leshii]

Не люблю этот пинг понг( забрасывают удочки на все форумы ). На cyberforum уже ему\ей написали ...