Ââîäèòñÿ ïîñëåäîâàòåëüíîñòü èç 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 - ñóììà îòðèöàòåëüíûõ ÷èñåë.
|