Ââîäèòñÿ ïîñëåäîâàòåëüíîñòü öåëûõ ÷èñåë, 0 - êîíåö ïîñëåäîâàòåëüíîñòè. Íàéòè äâà íàèìåíüøèõ ÷èñëà.
PROGRAM PRG2_4;
VAR X, MIN1, MIN2: INTEGER;
BEGIN
WRITE('BBEÄÈTE X = ');
READLN (X);
MIN1 :=X;
MIN2 := X;
{MIN2> = MIN1}
REPEAT
IF X<= MIN1 THEN
BEGIN
MIN2 := MIN1;
MIN1 :=X
END
ELSE
IF (MIN1>X) AND (X<MIN2) THEN
MIN2 := X;
WRITE('BBEÄÈTE X = ');
READLN (X);
UNTIL (X = 0);
WRITELN('ÄBA ÍÀÈÌÅÍÜØÈÕ ×ÈÑËÀ ÐÀÂÍÛ ', MIN1, 'È', MIN2);
END.
Äëÿ ðåøåíèÿ çàäà÷è:
- ôîðìèðóåì òåëî ïðîãðàììû è îïèñûâàåì ïåðåìåííûå;
- óñòàíàâëèâàåì íà÷àëüíîå çíà÷åíèå MIN1 è MIN2 ïî ïåðâîìó ÷èñëó;
- ïîñëåäîâàòåëüíî ñ÷èòûâàåì ÷èñëà è, åñëè î÷åðåäíîå ÷èñëî X ìåíüøå ïëè ðàâíî MIN1(MIN1 < MIN2), òî ïåðåïðèñâàèâàåì çíà÷åíèå MIN1 è MIN2;
- åñëè X ïîïàäàåò â èíòåðâàë îò MIN1 äî MIN2, òî ïåðåïðèñâàèâàåì òîëüêî MIN2;
- âûâîäèì ðåçóëüòàò.
Ïåðåìåííûå:
X - î÷åðåäíîå ÷èñëî;
MINI - ïåðâîå íàèìåíüøåå ÷èñëî;
MIN2 - âòîðîå íàèìåíüøåå ÷èñëî (MIN2 >= MINI).
|