Массив

[linnik]

Помогите плиз. Задаётся массив из 10 чисел найти количество тех элементов, значения которых положительны и не превышают заданного числа А(вводится любое). Вывести количество этих чисел и сам массив.

[dr.Jekill]

Код: Выделить всё

k:=0;
for i:=1 to 10 do
if (V[i] > 0) and (V[i] >= A) then 
k:=k+1;