Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.90/21: Рейтинг темы: голосов - 21, средняя оценка - 4.90
0 / 0 / 0
Регистрация: 14.10.2019
Сообщений: 15
1

Дан одномерный массив А, состоящий из целых чисел

10.11.2019, 16:05. Показов 4229. Ответов 1
Метки нет (Все метки)

Даны массив А упорядоченных по возрастанию натуральных чисел и натуральные числа X и Y (x<y). Предполагается, что значение X и Y в массиве встречается один раз или могут отсутствовать. Написать программу поиска в массиве А элементов a[i] по условия x<=a[i]<=y. Переписать в массив B номера найденных элементов. Вывести на экран массив В или сообщение "нет" , если поиск закончился неудачно.
Заранее спасибо!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.11.2019, 16:05
Ответы с готовыми решениями:

Дан одномерный массив А, состоящий из N целых чисел. Составить программу, которая меняет порядок следования элементов на обратный.
Дан одномерный массив А, состоящий из N целых чисел. Составить программу, которая меняет порядок...

Дан одномерный массив действительного типа. Получить массив, состоящий из отрицательных чисел исходного массива
Помогите пожалуйста решить задачку) Дан одномерный массив действительного типа. Получить другой...

Дан массив, состоящий из целых чисел. Упорядочить эти числа по знаку
Дан массив, состоящий из целых чисел. Упорядочить эти числа по знаку: сначала положительные, затем...

Дан массив целых чисел состоящий из 15 элементов. Заменить максимальный по моделю отрицательный элемент 0
Дан массив целых чисел состоящий из 15 элементов. Заменить максимальный по моделю отрицательный...

1
2368 / 770 / 561
Регистрация: 15.01.2019
Сообщений: 2,383
10.11.2019, 17:53 2
Лучший ответ Сообщение было отмечено Rashie как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
program Project1;
 
var
  a,b: array[0..100] of integer; // Переменные для хранения массивов.
  x: integer; // Переменная для хранения числа левой границы.
  y: integer; // Переменная для хранения числа правой границы
  n: integer; // Переменная для хранения значения количества элементов.
  i,k: integer; // Вспомогательные переменные для организации цикла и подсчета.
begin
  write('Введите значение количества элементов: ');
  Readln(n);
  a[0]:= 0;
  for i:= 1 to n do
    begin
      repeat
        write('Введите значение ',i,' элемента: ');
        Readln(a[i]);
      until (a[i] > 0) and (a[i-1] <= a[i]) ;
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(a[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  repeat
    writeln('Введите значение числа x:');
    Readln(x);
    writeln('Введите значение числа y:');
    Readln(y);
    if (x >= y) or (x <= 0) or (y <= 0) then
      writeln('Значение числа x должно быть меньше значения числа y!');
  until (x < y) and (x > 0) and (y > 0);
  k:= 0;
  for i:= 1 to n do
    if (x <= a[i]) and (a[i] <= y) then
      begin
        inc(k);
        b[k]:= i;
      end;
  if k = 0 then
    writeln('Нет.')
  else
    begin
      writeln('Массив с индексами найденных элементов: ');
      for i:= 1 to k do
        begin
          write(b[i]:5);
          if i mod 10 = 0 then
            writeln;
        end;
    end;
 
  Readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.11.2019, 17:53

дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b
дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы...

Дан массив целых чисел D, состоящий из 30 элементов. Заполнить его с клавиатуры.
Дан массив целых чисел D, состоящий из 30 элементов. Заполнить его с клавиатуры. Заменить...

Дан массив целых чисел, состоящий из 26 элементов. Заполнить его случайными числами
2. Дан массив целых чисел, состоящий из 26 элементов. Заполнить его случайными числами. Найти:...

Дан одномерный массив целых чисел А (N)
Плиз, срочно! Дан одномерный массив целых чисел А (N). Поменять местами элементы массива а2 и а4,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru