Дан

массив из N вещественных чисел. Выделить другим цветом все его

элементы, принадлежащие интервалу [a, b]

Uses crt;

var a, b, n, i:integer;

mas:array[1 ... 100] of integer;

begin

textcolor (white);

writeln ('Введите a, b, n:');

read (a, b, n);

writeln ('Введите элементы массива:');

for i:=1 to n do

read (mas[i]);

for i:=1 to n do

begin

if (mas[i]>a) and (mas[i]
textcolor (yellow)

else

textcolor (white);

write (mas[i],' ');

end;

textcolor (white);

end.