Ловите на паскале, если будет нужно на другом языке - пишите:
var mass: Array[1..10] of integer;
i, k1, k2: integer;
begin
for i := 1 to 10 do begin
write('Введите ', i, ' элемент массива: ' );
readln(mass[i]);
end;
write('Введите k1 и k2: ' );
readln(k1, k2);
writeln('======');
for i := k1 to k2 do begin
writeln(mass[i]);
end;
end.