Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
olviya
0 / 0 / 0
Регистрация: 29.05.2011
Сообщений: 28
1

Вывести номер первого из тех элементов массива, которые удовлетворяют двойному неравенству

16.06.2011, 20:50. Просмотров 855. Ответов 8
Метки нет (Все метки)

Помогите, пожалуйста, решить задачку:
Дан целочисленный массив A размера 10. Вывести номер первого из тех его элементов A[i], которые удовлетворяют двойному неравенству: A[1] < A[i] < A[10]. Если таких элементов нет, то вывести 0.
Заранее все спасибо.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2011, 20:50
Ответы с готовыми решениями:

Вывести номер первого и последнего из тех элементов массива, которые удовлетворяют двойному неравенству
Дан целочисленный массив A размера 10. Вывести номер сначала первого затем...

Вывести номер тех элементов массива, которые удовлетворяют двойному неравенству
Дан целочисленный массив А из 10 чисел.Вывести номер тех его элементов,которые...

Вывести порядковый номер последнего из тех его элементов Аk, которые удовлетворяют двойному неравенству А1<Аk<А10
Дан целочисленный массив А размера 10. Вывести порядковый номер последнего из...

Вывести порядковый номер последнего из элементов массива, которые удовлетворяют двойному неравенству
Array19. Дан целочисленный массив A размера 10. Вывести порядковый номер...

Вывести порядковый номер последнего из элементов массива, которые удовлетворяют двойному неравенству А1<Ak<A10
1)Дан целочисленный массив А размера 10. Вывести порядковый номер последнего...

8
shilovec5377
29 / 54 / 12
Регистрация: 26.05.2011
Сообщений: 755
16.06.2011, 21:31 2
Подожди 5 сек. попробую!
1
olviya
0 / 0 / 0
Регистрация: 29.05.2011
Сообщений: 28
16.06.2011, 21:34  [ТС] 3
Очень жду и надеюсь.
0
shilovec5377
29 / 54 / 12
Регистрация: 26.05.2011
Сообщений: 755
16.06.2011, 21:50 4
Попробуй так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program ma;
Uses crt;
var i,j,n:integer;
a:array[1..10] of integer;
Begin
clrscr;
 
Randomize;
for i:=1 to n do
Begin
a[i]:=random(10);
if ((a[1]<a[i]) and a[i]<a[10])) then
 
writeln(i)
else 
writeln('0');
Readln;
End;
End.
0
go
Эксперт С++
3637 / 1369 / 243
Регистрация: 16.04.2009
Сообщений: 4,527
16.06.2011, 21:58 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var a : array [1..10] of integer;
i:integer;
begin
 for i:=1 to 10 do
  begin
   write ('a[',i,']= ');
   readln (a[i]);
  end;
  
for i:=2 to 9 do
 if (a[1]<a[i]) and (a[i]<a[10]) then
   begin
    write ('nomer - ', i);
    halt
   end;
   
 write ('0');
end.
Добавлено через 1 минуту

Не по теме:

Цитата Сообщение от shilovec5377 Посмотреть сообщение
Попробуй так:
что вы пишете? ;)

1
Viktor-z
24 / 24 / 12
Регистрация: 23.03.2011
Сообщений: 70
16.06.2011, 22:08 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a: array[1..10] of integer;
      i: byte;
      begin
      for i:=1 to 10 do
      begin
      writeln('Введите элемент массива номер ',i);
      readln(a[i]);
      end;
for i:=1 to 10 do
begin
if (a[1]<a[i]) and (a[10]>a[i]) then
begin
writeln(i);
halt;
end;
end;
writeln('0');
readln;
end.
Добавлено через 4 минуты
Хех, выше моего почти такой же код . Я медленный какой-то
0
olviya
0 / 0 / 0
Регистрация: 29.05.2011
Сообщений: 28
16.06.2011, 22:23  [ТС] 7
Ребята спасибо большое.Так все же чей вариант правильный?
0
Viktor-z
24 / 24 / 12
Регистрация: 23.03.2011
Сообщений: 70
16.06.2011, 22:26 8
Мой и go точно работают.
1
Smel
0 / 0 / 0
Регистрация: 13.09.2015
16.06.2011, 22:35 9
помогите пожалуйста!!!!!
задан массив X(N) (N<=60) переписать элементы массива X последовательно в массив Y

Добавлено через 46 секунд
заранее спасибо
0
16.06.2011, 22:35
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2011, 22:35

Вывести значение первого из тех его элементов AK, которые удовлетворяют неравенству
Помогите понять условие задачи. Решить не прошу. Дан массив A ненулевых...

Вывести значение первого из тех его элементов Ak, которые удовлетворяют неравенству
Дан массив A ненулевых целых чисел размера 10. Вывести значение первого из тех...

Вывести номер первого и последнего из элементов массива, которые удовлетворяют двойному неравенству
Дан целочисленный массив A размера 10. Вывести номер первого и последнего из...


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

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

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