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










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

 

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

Ââîäèòñÿ ïîñëåäîâàòåëüíîñòü èç N öåëûõ ÷èñåë. Íàéòè ñóììó âñåõ îòðèöàòåëüíûõ ÷èñåë.

 
PROGRAM PRG2_1;

VAR N, X, SUM, I : INTEGER;

BEGIN

REPEAT

WRITE('BBEÄÈTE ÄËÈÍÓ ÏÎÑËÅÄÎÂÀÒÅËÜÍÎÑÒÈ N = ');

READLN (N);

UNTIL N>0;

SUM := 0;

FOR I := 1 TO N DO

BEGIN

WRITE('BBEÄÈTE X = ');

READLN (X);

IF X<0 THEN SUM := SUM+X

END;

ELSE

WRITELN('ÎÒÐÈÖÀÒÅËÜÍÛÕ ×ÈÑÅË ÍÅÒ')

END

WRITELN('CÓMMA ÎÒÐÈÖÀÒÅËÜÍÛÕ ×ÈÑÅË SUM = ', SUM);

END.

Äëÿ ðåøåíèÿ çàäà÷è:

- ôîðìèðóåì òåëî ïðîãðàììû è îïèñûâàåì ïåðåìåííûå;

- ââîäèì äëèíó ïîñëåäîâàòåëüíîñòè N è óñòàíàâëèâàåì íà÷àëüíîå çíà÷åíèå SUM;

- ïîñëåäîâàòåëüíî ñ÷èòûâàåì ÷èñëà, è åñëè ÷èñëî îòðèöàòåëüíîå, òî ïðèáàâëÿåì åãî ê ñóììå SUM;

- â çàâèñèìîñòè îò çíà÷åíèÿ SUM âûâîäèì ðåçóëüòàò.

Ïåðåìåííûå:

N - êîëè÷åñòâî ÷èñåë;

I - ïåðåìåííàÿ öèêëà;

X - î÷åðåäíîå ÷èñëî;

SUM - ñóììà îòðèöàòåëüíûõ ÷èñåë.



 
     
   
 


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

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

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

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

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


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

 


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