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

Найти номер первого элемента меньше заданного числа а.

30.04.2010, 10:59. Показов 1435. Ответов 3
Метки нет (Все метки)

Дан массив, упорядочить по убыванию. Найти номер первого элемента меньше заданного числа а.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.04.2010, 10:59
Ответы с готовыми решениями:

Одномерный массив. Найти номер первого отрицательного элемента, который по модулю меньше максимального числа
Здравствуйте. Очень надеюсь на вашу помощь. Есть задание:Найти номер первого отрицательного...

Массив: Определить порядковый номер первого числа, меньше заданного n.
Дан непустой и упорядоченный по возрастанию массив целых чисел. Определить порядковый номер первого...

Найти номер первого минимального элемента среди положительных элементов, расположенных до первого элемента, кратного пяти.
Задан целочисленный одномерный массив a из n элементов. Найти номер первого минимального элемента...

Найти номер первого максимального значения среди элементов, меньших a и расположенных правее первого элемента, кратного трем
Помогите плз! Найти номер первого максимального значения среди элементов, меньших a и...

3
105 / 102 / 89
Регистрация: 18.05.2009
Сообщений: 201
30.04.2010, 11:39 2
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
uses crt;
var
a:array[1..1000] of integer;
i,j,num,n,k,chislo:integer;
begin
  clrscr;
  write('введите колличество элементов ');
  readln(n);
  writeln('заполните массив ');
  for i:=1 to n do
  begin
    write('a[',i,']= ');
    readln(a[i]);
  end;
  writeln('исходный массив: ');
  for i:=1 to n do
  write(a[i]:5);
  writeln;
  for i:=1 to n-1 do
  for j:=i+1 to n do
    if a[i]<a[j] then
    begin
      k:=a[i];
      a[i]:=a[j];
      a[j]:=k;
    end;
  writeln('преобразованный массив: ');
  for i:=1 to n do
  write(a[i]:5);
  writeln;
  textcolor(10);
  write('введите число ');readln(chislo);
  num:=0;
  for i:=1 to n do
  begin
    if a[i]<chislo then
    begin
      writeln('номер первого элемента меньше заданного числа равен ',i);
      num:=1;
      break;
   end;
  end;
  if num=0 then  writeln('такого элемента нет!');
  readln;
end.
0
0 / 0 / 0
Регистрация: 29.04.2010
Сообщений: 37
30.04.2010, 12:14  [ТС] 3
спасибо!!! выручил!
0
105 / 102 / 89
Регистрация: 18.05.2009
Сообщений: 201
30.04.2010, 12:32 4
Что-бы сам заполнял поменяй строки 9-14 на
Pascal
1
2
for i:=1 to n do
  a[i]:=random(101)-50;
а после clrscr; напиши randomize;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2010, 12:32

Определить порядковый номер первого числа, большего заданного n
дана непустая и упорядоченная по возрастанию последовательно целых чисел, оканчивающаяся числом 10...

Найти номер первого элемента последовательности, меньший введённого с клавиатуры числа
Дано начальное значение a(0)=2 и рекуррентная формула a(i)= 2+a(i-1)^2/2*i*a(i-1). Найти номер...

Найти номер последнего минимального элемента среди элементов, меньших t и лежащих правее первого элемента, равного s
Дан целочисленный вектор A(n). Найти номер последнего минимального элемента среди элементов,...

Найти номер первого элемента
Дан массив, упорядоченный по убыванию. Найти номер первого элемента, меньшего за-данного числа а....


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

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

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