Теория:
Напиши программу, которая получает на вход последовательность из \(N\) натуральных чисел, а затем находит количество чисел, больших \(70\), но меньших \(150\).
Входные данные | Выходные данные |
\(6\) \(60\) \(80\) \(100\) \(150\) \(75\) \(200\) | \(3\) |
Разбор задачи и план решения
1. Объявление переменных. Нам понадобятся переменные для хранения:
- количество чисел (обозначим \(n\));
- сами числа, которые мы будем хранить в массиве (обозначим arr) (размер массива должен быть достаточным для хранения до \(100\) чисел);
- переменная для индекса в цикле (обозначим \(i\));
- переменная для хранения текущего числа (обозначим num — необязательно, но так удобнее читать код);
- переменная для подсчёта количества чисел, удовлетворяющих условию (обозначим count).
2. Ввод данных.
- Подсчитаем количество чисел (\(n\)) из первой строки.
- Подсчитаем сами числа из второй строки и сохраним их в массив arr.
3. Обработка данных (цикл и условие).
Мы должны пройти по всем элементам массива. Для этого используем цикл for.
Внутри цикла для каждого элемента массива проверяем, удовлетворяет ли он условию (больше \(70\) и меньше \(150\)).
Если условие выполняется, увеличиваем счётчик count.
4. Вывод результата.
После завершения цикла выводим значение переменной count.
Решение на языке Pascal:
program CountNumbersInRange;
var
n, i, num, count: integer; // Объявление переменных
arr: array[\(1\)..\(100\)] of integer; // Объявление массива
begin
// 1. Ввод количества чисел
readln(n); // Считываем количество чисел в переменную \(n\)
// 2. Ввод чисел в массив
for i :\(= 1\) to n do
read(arr[i]); // Считываем числа в массив arr
// 3. Обработка данных (подсчёт)
count :\(= 0\); // Инициализируем счётчик (обязательно!)
for i :\(= 1\) to n do
begin
if (arr[i] \(> 70\)) and (arr[i] \(< 150\)) then // Проверяем условие
count :\(=\) count \(+ 1\); // Если условие верно, увеличиваем счётчик
end;
// 4. Вывод результата
writeln(count); // Выводим количество чисел, удовлетворяющих условию
readln; // Чтобы программа не закрывалась сразу после выполнения
end.