Çàî÷íîå äèñòàíöèîííîå îáðàçîâàíèå ñ ïîëó÷åíèåì ãîñóäàðñòâåííîãî äèïëîìà ÷åðåç Internet










Ïîëó÷èòü èíôîðìàöèþ î ïîñòóïëåíèè
 
Ãëàâíàÿ Íîâîñòè Êàðòà ñàéòà Ôîòîàëüáîì Ãîñòåâàÿ êíèãà Êîíòàêòû

 

Óïðàæíåíèå 3 (Îáðàáîòêà ÷èñëîâûõ ïîñëåäîâàòåëüíîñòåé)

Ââîäèòñÿ ïîñëåäîâàòåëüíîñòü èç 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 - î÷åðåäíîå ÷èñëî;

ÌÀÕ - íàèáîëüøåå ÷èñëî.



 
     
   
 


Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êðóãëîì ñòîëå!
ïîäðîáíåå   >>>
 

Èíñòèòóò Ìåíåäæìåíòà, Ýêîíîìèêè è Èííîâàöèé íà÷èíàåò íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Óâàæåìûå ñòóäåíòû ÀÍÎ ÂÏÎ ÈÌÝèÈ!
ïîäðîáíåå   >>>
 

Íà÷èíàåòñÿ íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êîíôåðåíöèÿõ!
ïîäðîáíåå   >>>
 


âñå íîâîñòè...

 


Ðàññûëêè Subscribe.Ru
Ñîâðåìåííîå îáðàçîâàíèå
Ïîäïèñàòüñÿ ïèñüìîì