Ââîäèòñÿ ïîñëåäîâàòåëüíîñòü èç N öåëûõ ÷èñåë. Íàéòè íàèáîëüøåå ÷èñëî.
PROGRAM PRG2_3;
VAR N, X, MAX, I: INTEGER;
BEGIN
REPEAT
WRITE('ÂÂÅÄÈÒÅ ÄËÈÍÓ ÏÎÑËÅÄÎÂÀÒÅËÜÍÎÑÒÈ N = ');
READLN (N);
UTIL N>0;
WRITE('ÂÂÅÄÈÒÅ X = ');
READLN (X);
MAX := X;
FOR I := 2 TO N DO
BEGIN
WRITE('BBEAMTE X = ');
READLN (X);
IF (X>MAX) THEN
MAX := X;
END;
WRITELN('HAÈÁÎËÜØÅÅ ÈÇ ×ÈÑÅË MAX = ', MAX);
END.
Äëÿ ðåøåíèÿ çàäà÷è:
- ôîðìèðóåì òåëî ïðîãðàììû è îïèñûâàåì ïåðåìåííûå;
- ââîäèì äëèíó ïîñëåäîâàòåëüíîñòè N è óñòàíàâëèâàåì íà÷àëüíîå çíà÷åíèå ÌÀÕ ïî ïåðâîìó ÷èñëó;
- ïîñëåäîâàòåëüíî ñ÷èòûâàåì ÷èñëà, è åñëè î÷åðåäíîå ÷èñëî X áîëüøå ÌÀÕ, òî ïåðåïðèñâàèâàåì çíà÷åíèå ÌÀÕ := X;
- âûâîäèì ðåçóëüòàò.
Ïåðåìåííûå:
N - êîëè÷åñòâî ÷èñåë;
I - ïåðåìåííàÿ öèêëà;
X - î÷åðåäíîå ÷èñëî;
ÌÀÕ - íàèáîëüøåå ÷èñëî.
|