Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Полина2001
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 2
1

В целочисленном массиве найти первое число, принадлежащее отрезку[-2;5]

21.04.2015, 22:16. Просмотров 366. Ответов 4
Метки нет (Все метки)

Через while. В целочисленном массиве найти первое число, принадлежащее отрезку[-2;5] .
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.04.2015, 22:16
Ответы с готовыми решениями:

В целочисленном массиве найти первое с конца нечётное число
в целочисленном массиве найти первое с конца не чётное число

В целочисленном массиве найти первое с конца нечетное число (цикл while)
В целочисленном массиве найти первое с конца нечетное чило Через while

В массиве чисел найти максимальное число, принадлежащее интервалу
Ребята выручайте В массиве чисел А(N) найти максимальное число, принадлежащее интервалу . Все...

В массиве чисел найти максимальное число, принадлежащее заданному интервалу
Ребят помогите с задачами плиз. 1. В массиве чисел А(N) найти максимальное число, принадлежащее...

Найти первое отрицательное число в массиве
Думаю что он легкий, а решить не могу( не умею решать их) ( В массиве чисел А1 А2......Аn найти...

4
FREYfMI
2 / 2 / 2
Регистрация: 17.10.2014
Сообщений: 111
21.04.2015, 23:46 2
А сколько может быть чисел на таком отрезке?
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4879 / 3423 / 4022
Регистрация: 05.06.2014
Сообщений: 17,103
22.04.2015, 11:17 3
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
{Через while. В целочисленном массиве найти первое число, принадлежащее
отрезку[-2;5] .}
const
  n=10;
var
  i:integer;
  a:array[1..n] of integer;
begin
  randomize;
  i:=1;
  while i<=n do
    begin
      a[i]:=Integer(random(n)) - n div 2;
      write(a[i]:4);
      inc(i);
    end;
  i:=1;
  writeln;
  write('Найденное число:');
  while i<=n do
    begin
      if (a[i]>=-2) and (a[i]<=5) then
        begin
          write(a[i]:4,', в позиции: ',i);
          break;
        end;
      inc(i);
    end;
 
  readln;
end.
1
mamedovvms
2920 / 841 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
22.04.2015, 20:00 4
и еще желательно добавить условие на то, что такого элемента нет
0
Cyborg Drone
Модератор
5941 / 3512 / 2571
Регистрация: 17.08.2012
Сообщений: 11,263
26.04.2015, 04:43 5
Замените:
Pascal
19
20
21
22
23
24
25
26
27
28
29
30
31
  while i<=n do
    begin
      if (a[i]>=-2) and (a[i]<=5) then
        begin
          write('Найденное число: ', a[i]:4,', в позиции: ',i);
          break
        end;
      inc(i);
    end;
  if i>n then write('Чисел в диапазоне [-2..5] не найдено');
    
    readln
end.
0
26.04.2015, 04:43
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2015, 04:43

В массиве чисел найти первое отрицательное число
Думаю что он легкий, а решить не могу( не умею решать их) ( В массиве чисел А1 А2......Аn найти...

В одномерном массиве найти первое простое число
Дан одномерный числовой массив. Найти первое простое число этого массива

Найти в массиве первое число равное заданному
Найти в массиве первое число равное заданному целому числу а и вывести error если таких чисел нет.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.