Internet










 

 

1 ( )

N . .

 
PROGRAM PRG2_1;

VAR N, X, SUM, I : INTEGER;

BEGIN

REPEAT

WRITE('BBETE N = ');

READLN (N);

UNTIL N>0;

SUM := 0;

FOR I := 1 TO N DO

BEGIN

WRITE('BBETE X = ');

READLN (X);

IF X<0 THEN SUM := SUM+X

END;

ELSE

WRITELN(' ')

END

WRITELN('CMMA SUM = ', SUM);

END.

:

- ;

- N SUM;

- , , SUM;

- SUM .

:

N - ;

I - ;

X - ;

SUM - .



 
     
   
 


!
  >>>
 

, !
  >>>
 

!
  >>>
 

!
  >>>
 

!
  >>>
 


...

 


Subscribe.Ru