Дан массив из 10 элементов. Найдите количество элементов, больших 3, но меньших 10.

program zz1;

var mas:array[1 ... 10] of integer;

i, p, max:integer;

begin

for i:=1 to 10 do / /получаем исходный массив случайным образом от - 5 до 15

mas[i]:=random (21) - 5;

for i:=1 to 10 do

write (mas[i],' '); / /выводим полученный массив на экран

writeln; / /переходим на другую строку для вывода

for i:=1 to 10 do

if (mas[i]>3) and (mas[i]<10) then p:=p+1; / /проверяем, если число из массива больше, чем три, и меньше чем десять, то считаем его

write ('количество чисел больше трех и меньше десяти=', p) / /выводим ответ

end.