Помогите, пожалуйста! Как ввести числа с клавиатуры в диапазоне от -30000 до 30000?Паскаль

Question

Помогите, пожалуйста! Как ввести числа с клавиатуры в диапазоне от -30000 до 30000?Паскаль

Answer 1

Number:=-100000;
repeat
 writeln('введите число в диапазоне от -30000 до +30000'); 
 readln(number);
until (number in [-30000..30000]);

Comments

а почему number равняется -100000?

---

можно инициализировать любым числом вне диапазона

---

извините, но можно еще вопрос: Как ввести числа в этом диапазоне, но есть имеет определенное количество чисел ,например n

---

тогда вместо repeat ..until используйте for i:=1 to n do