Напечатать индексы элементов массива, значения которых не входят в заданный диапазон - 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.

Объяснение кода листинга программы

  1. Объявляется константа n со значением 10, обозначающая длину массива.
  2. Объявляются переменные: массив x целых чисел от 1 до n, переменные i, a и b типа целого для работы с циклами и диапазоном.
  3. Генерируется случайное заполнение массива x числами от 0 до n-1, и каждый элемент массива выводится на экран с отступом в 5 символов.
  4. Пользователю предлагается ввести диапазон, вводятся значения a и b.
  5. Затем проверяется каждый элемент массива на то, входит ли его значение в заданный диапазон. Если значение не входит в этот диапазон, то выводится индекс этого элемента с отступом в 5 символов.
  6. Программа ждет ввода пользователя перед завершением. Этот код на языке Pascal создает массив случайных значений, выводит его на экран, просит пользователя ввести диапазон значений и затем выделяет индексы элементов массива, значение которых не входит в указанный диапазон.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы