Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Интересно ;-) 16.10.03 13:24 Число просмотров: 1546
Автор: HandleX <Александр М.> Статус: The Elderman
|
> Пример: Напишите програмку, которая делает следующее -
> последовательно вводятся числа (количество введенных чисел
> немзвестно/неограничено), при вводе заранее оговоренного
> числа программа должна выдать второе по максимальности
> число (именно не самое максимальное, а второе по величине)
> и закончить работу.
>
> Так и хочется завести массив, считывать циклически
> введенные числа в последовательные ячейки массива, при
> вводе ключевого числа вывалиться из цикла ввода,
> отсортировать массив и выдать значение второго элемента.
> Проблема в том, что надо обойтись без массива, поскольку
> количество введенных чисел неограничено.
Гы. Ну не знаю, мне не хочется ;-)
Program Sort;
Var aValue, Max, oldMax, stopValue: Integer;
Begin
Max := Low(Integer);
Write('Введите значение для остановки>');
ReadLn(stopValue);
Repeat
Write('Input value>');
ReadLn(aValue);
If aValue > Max Then
Begin
OldMax := Max;
Max := aValue;
End;
Until aValue = stopValue;
WriteLn('oldMax = ', oldMax, ', Max = ', Max);
WriteLn('Enjoy and good bye... There was no any arrays!');
End.
---
|
|
|
подробно о проекте
Анализ криптографических сетевых...
