Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Будь я преподавателем алгоритмических языков - хорошую оценку поставил бы. 16.10.03 15:36 Число просмотров: 1542
Автор: DPP <Dmitry P. Pimenov> Статус: The Elderman
|
> Гы. Ну не знаю, мне не хочется ;-)
Писать текст на алгоритмическом языке было совсем не обязательно.
Идея именно в этом!
Можно было бы поставить даже отлично!
А проверять работоспособность пробовали?
Заренее оговоренное СТОП-значение пусть будет 0.
Попробуйте последовательность: 1, 10, 9, 8, 7, 6, 5, 4, 3, 2.
Второе наибольшее должно быть 9
> > 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.
> ---
|
|
|