Напечатать индексы элементов массива, значения которых не входят в заданный диапазон - Pascal
Формулировка задачи:
дан одномерный массив, напечатать индексы элементов, значения которых не входят в заданный диапазон
Решение задачи: «Напечатать индексы элементов массива, значения которых не входят в заданный диапазон»
textual
Листинг программы
const n = 10; var x: array[1..n]of integer; i, a, b: integer; begin randomize; for i := 1 to n do begin x[i] := random(n); write(x[i]:5); end; writeln; write('Введите диапазон A<=B: '); readln(a, b); for i := 1 to n do if (x[i] < a) or (x[i] > b) then write(i:5); readln; end.
Объяснение кода листинга программы
- Объявляется константа
n
со значением10
, обозначающая длину массива. - Объявляются переменные: массив
x
целых чисел от 1 доn
, переменныеi
,a
иb
типа целого для работы с циклами и диапазоном. - Генерируется случайное заполнение массива
x
числами от 0 доn-1
, и каждый элемент массива выводится на экран с отступом в 5 символов. - Пользователю предлагается ввести диапазон, вводятся значения
a
иb
. - Затем проверяется каждый элемент массива на то, входит ли его значение в заданный диапазон. Если значение не входит в этот диапазон, то выводится индекс этого элемента с отступом в 5 символов.
- Программа ждет ввода пользователя перед завершением. Этот код на языке Pascal создает массив случайных значений, выводит его на экран, просит пользователя ввести диапазон значений и затем выделяет индексы элементов массива, значение которых не входит в указанный диапазон.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д