Ниже показан пример для одномерного массива
var a:array[1..10] of integer;
c,d:integer;
i:integer;
begin
writeln('введите 10 элементов массива');
for i:=1 to 10 do readln( a[i] );
writeln('введите интервал C и D');
readln( c,d );
for i:=1 to 10 do begin
if (a[i]>=C) and (a[i]<=D) then writeln(a[i]);
end;
end.
Ниже показан пример для двумерного массива
var a:array[1..3,1..3] of integer;
c,d:integer;
i,j:integer;
begin
writeln('введите 9 элементов массива');
for i:=1 to 3 do
for j:=1 to 3 do
readln(a[i,j]);
writeln('введите интервал C и D');
readln(c,d);
writeln('результат:');
for i:=1 to 3 do
for j:=1 to 3 do
begin
if (a[i,j]>=C) and (a[i,j]<=D) then writeln(a[i,j]);
end;
end.