Как написать программу на языке Паскаль для поиска количества элементов массива, больших 7, но меньших 35
- Объявить переменные:
- Массив целых чисел arr
- Переменную для хранения количества элементов, удовлетворяющих условию count
- Переменные для циклов i и n
- Заполнить массив arr случайными числами от 1 до 50
- Создать цикл, который будет проходить по всем элементам массива и проверять условие:
- Если элемент больше 7 и меньше 35, увеличивать переменную count на 1
- Вывести на экран количество элементов, удовлетворяющих условию
Пример программы на языке Паскаль:
program CountElements; var arr: array[1..10] of integer; count, i: integer; begin count := 0; // Заполнение массива случайными числами от 1 до 50 randomize; for i := 1 to 10 do begin arr[i] := random(50) + 1; writeln('Элемент ', i, ': ', arr[i]); end; // Подсчет количества элементов, удовлетворяющих условию for i := 1 to 10 do begin if (arr[i] > 7) and (arr[i] < 35) then count := count + 1; end; writeln('Количество элементов, больших 7 и меньших 35: ', count); end.
После выполнения данной программы на экране будет выведено количество элементов массива, каждый из которых больше 7, но меньше 35.