Массив
Добавлено: 01 ноя 2012, 13:48
Помогите плиз. Задаётся массив из 10 чисел найти количество тех элементов, значения которых положительны и не превышают заданного числа А(вводится любое). Вывести количество этих чисел и сам массив.
Код: Выделить всё
k:=0;
for i:=1 to 10 do
if (V[i] > 0) and (V[i] >= A) then
k:=k+1;