Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 26.02.2011
Сообщений: 31
1

Найти номер первого максимального нечетного числа из заданного набора

28.02.2011, 20:12. Показов 2105. Ответов 15
Метки нет (Все метки)

помогите пожалуйста разобраться minmax(((

дано целое число N и набор из N целых чисел:
1)найти номер первого max-го нечетного числа из данного набора,если нечетные отсутствуют то вывести 0
2)найти номер первого экстремального(т.е. min или max-го)элемента из данного набора
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2011, 20:12
Ответы с готовыми решениями:

Найти номер первого максимального нечетного числа из данного набора
можете написать код для этой программы из раздела "Минимумы и максимумы" minmax13. Дано целое...

Дано целое число N и набор из N целых чисел.Найти номер первого максимального нечетного числа из данного набора
дано целое число N и набор из N целых чисел.Найти номер первого максимального нечетного числа из...

Дан набор из n целых чисел. Найти номер первого максимального нечетного числа из данного набора
дано целое число n и набор из n целых чисел. найти номер первого максимального нечетного числа из...

Дано целое число N и набор из N целых чисел. Найти номер первого максимального нечетного числа из данного набора ...
Здравствуйте помогите, пожалуйста решить задачи в си шарп: 1. Описать функцию RadToDeg(R)...

15
126 / 94 / 74
Регистрация: 18.01.2011
Сообщений: 227
28.02.2011, 20:44 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
uses crt;
var
a:array[1..100] of integer;
max,min,mn,mx,i,n:integer;
k,s,pr:real;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
  write(i,'-й = ');readln(a[i]);
  max:=a[1];
  min:=a[i];
  k:=1;
  mn:=1;
  mx:=1;
  end;
for i:=1 to n do
  begin
    if (a[i] mod 2<>0) then if (a[i]>max) then
               k:=i;
       end;
  for i:=1 to n do
  begin
    if a[i]>max then
      begin
                  mx:=i;
      end;
      if a[i]<min then
      begin
                  mn:=i;
      end;
  end;
    writeln('1) ',k);
    if mx>mn then writeln('2) ',mn) else
       writeln('2) ',mx)
end.
1
0 / 0 / 0
Регистрация: 26.02.2011
Сообщений: 31
28.02.2011, 21:00  [ТС] 3
это 2а в одном?
0
126 / 94 / 74
Регистрация: 18.01.2011
Сообщений: 227
28.02.2011, 21:03 4
Ну да. А что нужно раздельно?
0
0 / 0 / 0
Регистрация: 26.02.2011
Сообщений: 31
28.02.2011, 21:16  [ТС] 5
желательно,а то я так вообще не понимаю(((

Добавлено через 10 минут
всё равно спасибо)большое))
0
0 / 0 / 0
Регистрация: 25.02.2011
Сообщений: 38
28.02.2011, 21:23 6
танюха вот и помощь твоя)))) имеются добрые люди)))
0
56 / 56 / 14
Регистрация: 02.03.2010
Сообщений: 407
28.02.2011, 21:29 7
Цитата Сообщение от Elis-sabina Посмотреть сообщение
танюха вот и помощь твоя)))) имеются добрые люди)))
Списываете всей группой? XDD

Зы. Программу логичнее делать 2 в 1. Ведь дано одно условие и два подпункта. Хотя если автор уж не разделит и вам это так критически важно, то могу разделить.

Да и код написан не верно
1
0 / 0 / 0
Регистрация: 25.02.2011
Сообщений: 38
28.02.2011, 21:33 8
XD надеюсь через пять лет мы будем знать эти языки)))) надо было идти на энергетика или ядерщика ХД
0
56 / 56 / 14
Регистрация: 02.03.2010
Сообщений: 407
28.02.2011, 21:53 9
Цитата Сообщение от AksIoMa Посмотреть сообщение
желательно,а то я так вообще не понимаю(((

Добавлено через 10 минут
всё равно спасибо)большое))
Первое задание:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a:array[1..100] of integer;
  max,min,mx,i,n,k:integer;
begin
k:=0;
  write('vvedite n: ');readln(n);
  for I := 1 to n do
    begin
      write('a[',i,']: ');
      readln(a[i])
    end;
    max:=a[1];
    for I := 1 to n do
       if (max<a[i]) and odd(a[i]) then
        begin max:=a[i]; k:=i end;
  writeln('nomer maximal''nogo: ',k);readln
end.
Второе:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a:array[1..100] of integer;
  max,min,mx,mn,i,n:integer;
begin
  write('vvedite n: ');readln(n);
  for I := 1 to n do
    begin
      write('a[',i,']: ');
      readln(a[i])
    end;
    max:=a[1]; min:=a[1];
    for I := 1 to n do
       if (max<a[i]) then
        begin max:=a[i]; mx:=i end else
       if (min>a[i]) then
        begin min:=a[i]; mn:=i end;
 
  if mx<mn then writeln('nomer extremal''nogo: ',mx) else
  writeln('nomer extremal''nogo: ',mn);readln
end.
Добавлено через 1 минуту
Цитата Сообщение от Elis-sabina Посмотреть сообщение
XD надеюсь через пять лет мы будем знать эти языки)))) надо было идти на энергетика или ядерщика ХД
Для меня всегда девушка- программист будет удивлением У нас из 46 человек 4 девушки.
1
0 / 0 / 0
Регистрация: 25.02.2011
Сообщений: 38
28.02.2011, 22:16 10
та мы вообще не пойми кто ХД
0
0 / 0 / 0
Регистрация: 26.02.2011
Сообщений: 31
01.03.2011, 14:08  [ТС] 11
большое спасибо за помощь
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
01.03.2011, 14:52 12
Sunman
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a:array[1..100] of integer;
  max,min,mx,i,n,k:integer;
begin
k:=0;
  write('vvedite n: ');readln(n);
  for I := 1 to n do
    begin
      write('a[',i,']: ');
      readln(a[i])
    end;
    max:=a[1];
    for I := 1 to n do
       if (max<a[i]) and odd(a[i]) then
        begin max:=a[i]; k:=i end;
  writeln('nomer maximal''nogo: ',k);readln
end.
В правельности уверен?
0
56 / 56 / 14
Регистрация: 02.03.2010
Сообщений: 407
01.03.2011, 15:27 13
Цитата Сообщение от SuPeR XaKer Посмотреть сообщение
Sunman

В правельности уверен?
А что не так? Как понял условие:
Есть массив из N элементов, нам нужно найти первый максимальный нечетный элемент этого массива. Нет?
Для этого мы находим максимальный элемент и строгим условием исключаем, "принятие" индекса следующего максимального числа.
Может я что-то не так понял? odd возвращает true в случае нечетности элемента. Потестил, работает согласно моей задумке.

Зы. Я не против критики, только, чтобы не разводить много флуда было бы неплохо сразу говорить о косяках.
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
01.03.2011, 15:31 14
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
vvedite n: 4
a[1]: 4
a[2]: 2
a[3]: 3
a[4]: 2
nomer maximal'nogo: 0
 
vvedite n: 4
a[1]: 5
a[2]: 1
a[3]: 3
a[4]: 2
nomer maximal'nogo: 0
1
56 / 56 / 14
Регистрация: 02.03.2010
Сообщений: 407
01.03.2011, 16:00 15
Теперь понял ошибку. Не принял во внимание, что первый элемент может быть и четным и в то же время максимальным среди остальных.
не удачная неделя у меня, котелок совсем не варит

конечный вариант, у меня получился такой:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a:array[1..100] of integer;
  max,min,mx,i,n,k:integer;
begin
k:=0;
  write('vvedite n: ');readln(n);
  for I := 1 to n do
    begin
      write('a[',i,']: ');
      readln(a[i])
    end;
 
    for I := 1 to n do
       if odd(a[i]) then begin max:=a[i]; k:=i;  break end;
 
    for I := 1 to n do
       if (max<a[i]) and odd(a[i]) then
        begin max:=a[i]; k:=i end;
  writeln('nomer maximal''nogo: ',k);readln
end.
Хакер, у Вас наверно опыт побольше будет, я был бы не прочь узнать Ваши варианты, хотя бы в словесном описании, если есть, что-то попроще.
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
01.03.2011, 16:27 16
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Сделал бы как то так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Uses
 CRT;
var
 a:array[1..100] of integer;
 max,i,n,k:integer;
begin
write('vvedite n: ');
readln(n);
max:=(-MaxInt-1)+1;
k:=0;
for I:=1 to n do
begin
 write('a[',i,']: ');
 readln(a[i]);
 if (odd(a[i])) and (a[i]>max) then
 begin
  max:=a[i];
  k:=i;
 end;
end;
writeln('Èíäåêñ ìàêñèìàëüíîãî íå÷¸òíîãî ÷èñëà: ',k);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.03.2011, 16:27

Номер первого максимального нечетного числа из данного набора
Дано целое число N и набор из N целых чисел. Найти номер первого максимального нечетного числа из...

Найти номер первого максимального элемента среди отрицательных элементов, расположенных до первого элемента, большего заданного числа Т
Написать собственную функцию для работы с одномерным динамическим массивом, заданным указателем....

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

Найти номер первого экстремального (то есть минимального или максимального) элемента из данного набора
Minmax10. Дано целое число N и набор из N целых чисел. Найти номер первого экстремального (то есть...


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

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

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