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

Найти номер первого элемента

03.05.2010, 21:28. Показов 1316. Ответов 1
Метки нет (Все метки)

Дан массив, упорядоченный по убыванию. Найти номер первого элемента, меньшего за-данного числа а. Если таких элементов в массиве нет, то на экран должно быть выведено соответствующее сообщение
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.05.2010, 21:28
Ответы с готовыми решениями:

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

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

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

Найти номер первого минимального элемента
Задан целочисленный одномерный массив A из N элементов. Найти номер первого минимального элемента...

1
772 / 577 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
04.05.2010, 00:46 2
Лучший ответ Сообщение было отмечено Алешка777 как решение

Решение

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
uses crt;
const n=5;
var a: array[1..n] of integer; i,j: byte; k,p: integer;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(19);
write(a[i]:3);
end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;
writeln('отсортированный массив: ');
for i:=1 to n do
write(a[i]:3);
writeln;
write('введите значение определяющего параметра: ');
readln(k);
i:=1;
j:=0;
if a[i]>=k then
begin
while (i<=n) and (a[i]>=k) do
inc(i);
j:=i;
end
else j:=i;
if j=0 then write('элементов меньше заданного числа в массиве нет')
else write('первый элемент меньший заданного числа имеет индекс = ',j);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.05.2010, 00:46

Найти номер первого отрицательного элемента
Найти номер первого отрицательного элемента массива С и множество предшествующих элементов массива

Найти номер первого положительного элемента массива
Дан массив целых чисел. Найти номер первого положительного элемента массива. Решить задачу с...

Найти номер первого по порядку элемента массива
Дан массив чисел X=(x1,x2,.....,xn). Найти номер первого по порядку элемента xi=0.

Найти номер первого четного элемента массива
Пожалуйста, помогите решить!!!


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

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

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