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

Составить программу поиска порядкового номера наибольшего элемента

26.05.2014, 15:40. Показов 1905. Ответов 4
Метки нет (Все метки)

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

Составить программу нахождения экстремального элемента или его порядкового номера
Составить программу нахождения экстремального элемента или его порядкового номера при заданном...

Задан массив случайным образом на отрезке. Составить программу поиска наибольшего элемента массива
Задан массив А (n=15) случайным образом на отрезке составить программу поиска наибольшего...

Составить программу, которая в зависимости от порядкового номера дня недели (1, 2, …7) выводит на экран его название
Составить программу, которая в зависимости от порядкового номера дня недели (1, 2, …7) выводит на...

Составить программу, которая в зависимости от порядкового номера дня месяца(1,2.,12) выводит на экран его название (январь,февраль,,.,декабрь)
Составить программу, которая в зависимости от порядкового номера дня месяца(1,2,...,12) выводит на...

4
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
26.05.2014, 16:42 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
var
  maxID, max, temp : Byte;
  mass : array of Byte;
  
begin
  max := 0;
  while (true) do
  begin
    Write('Input mass[', Length(mass)+1, ']='); ReadLn(temp);
    if (temp <> 0) then
    begin
      SetLength(mass, Length(mass)+1);
      mass[Length(mass)-1] := temp;
      if (max < mass[Length(mass)-1]) then
      begin
        max := mass[Length(mass)-1];
        maxID := Length(mass);
      end;
    end
    else
      break;
  end;
  WriteLn('MaxID = ', maxID);
end.
0
903 / 751 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
26.05.2014, 17:24 3
Лучший ответ Сообщение было отмечено a3671501 как решение

Решение

JokeR.BY, я думаю, что это задача на последовательности (без массивов):
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  a, K, max, i: integer;
  
begin
  max := 0; //
  randomize; //генератор псевдослучайных чисел
  i := 0;
  repeat
    inc(i);
    a := random(101); //случайное число [0, 100]
    write(a, ' ');
    if a > max then begin
      max := a; //запоминаем максимум
      K := i //запоминаем его номер
    end   
  until a = 0; //если число=0, то выходим
  writeln;
  writeln('Порядковый номер наибольшего элемента: ', K)
end.
0
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
26.05.2014, 17:45 4
erl27, как бы массив по сути и есть последовательность) но это мало что меняет, пусть ТС выбирает)
0
903 / 751 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
26.05.2014, 17:48 5
JokeR.BY, ваша программа написана на PascalABC.Net, на простом PascalABC не работает
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.05.2014, 17:48

Оформить процедуру поиска наибольшего элемента и его порядкового номера
заданы массивы Хi , (i = 1,...,10) и Y,(J=1,...,12), элементы которых вычисляются по формулам: ...

Составить программу нахождения экстремального элемента одномерного массива или его порядкового номера
Составить программу нахождения экстремального элемента или его порядкового номера при заданном...

Составить программу поиска наибольшего по модулю элемента массива, а также индекса этого элемента
Помогите написать программу и составить блок схему. Дано массив А и натуральное число n. Составить...

Написать программу поиска наибольшего элемента массива
ПОМОГИТЕ!!!!Написать программу поиска наибольшего элемента массива НА ЯЗЫКЕ ТУРБО ПАСКАЛЬ!!!


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

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

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