ОРГАНИЗАЦИЯ ЦИКЛОВ И РАБОТА С ОДНОМЕРНЫМИ МАССИВАМИ

[faiter_on]

Задав одномерный массив целочисленных данных А в формате WORD, реализовать обработку массива Найти, сколько элементов массива A={a[i]} удовлетворяют условию:
с <= a[i] <= d.
Длина массива N<=20.
Исходные данные задать самостоятельно, учитывая формат элементов массива A

[ZX Spectrum-128]

k:=0;
for i:=1 to n do
 If (a[i]>=c) and (a[i]<=d) then
  Inc(k);

[faiter_on]

Сообщение от ZX Spectrum-128

k:=0;
for i:=1 to n do
 If (a[i]>=c) and (a[i]<=d) then
  Inc(k);

Спасибо большое