Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
inh8
0 / 0 / 0
Регистрация: 07.05.2015
Сообщений: 4
1

Циклы: в произвольном числовом ряду найти меньшее число из двух наибольших чисел этой последовательности

07.05.2015, 22:14. Просмотров 903. Ответов 1
Метки нет (Все метки)

В произвольном числовом ряду (ввод чисел с клавиатуры, ввод завершить числом 0) найти меньшее число из двух наибольших чисел этой последовательности.

Заранее спасибо.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.05.2015, 22:14
Ответы с готовыми решениями:

Сумма двух наибольших чисел последовательности.
Здравствуйте, уважаемые. Прошу Вас, помочь мне разобраться в коде программы. Или упростить...

Во входном файле дана последовательность чисел. Требуется найти второе по величине число в этой последовательности
Во входном файле дана последовательность чисел. Требуется найти второе по величине число в этой...

В произвольном числовом массиве подсчитать количество положительных чисел и их сумму, колличество отрицательных чисел и их произведения
в произвольном числовом массиве подсчитать количество положительных чисел и их сумму, колличество...

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

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

1
JuriiMW
2810 / 1419 / 1767
Регистрация: 10.12.2014
Сообщений: 5,622
08.05.2015, 06:17 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
begin
  var N : Real;
  var Count := 0;
  var M1 := Real.MinValue; var M2 := Real.MinValue;
  repeat
    N := ReadReal('Введите ' + (Count + 1).ToString + ' число ряда (или 0 для окончания) :');
    Count += 1;
    if N <> 0 then
      if N > M1 then
        begin
          Swap(M1, M2);
          M1 := N;
        end
      else
        if N > M2 then
          M2 := N;
  until N = 0;
  if Count = 0 then
    WriteLn('Последовательность оказалось пустой!')
  else if Count = 1 then
    WriteLn('Последовательность всего из одного числа!')
  else
    WriteLn('Наименьшее из двух наибольших = ', M2);
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.05.2015, 06:17

Составьте программу, заменяющую из двух данных чисел большее число удвоенным произведением, а меньшее – полусуммой этих чисел.
Составьте программу, заменяющую из двух данных чисел большее число удвоенным произведением, а...

Блок-схема к задаче нахождения двух наибольших чисел последовательности
Не могу нарисовать блок-схему, совсем запуталась. программа простенькая вроде. но схема... Sub...

Определить в одномерном числовом массиве число соседств из двух положительных чисел
Определить в одномерном числовом массиве число соседств из двух положительных чисел.


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

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

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