10.1.. Sabirati članove niza sve dok je suma manja od 241. 

Opis programa:

Listing programa:

PROGRAM P10112050;
USES
  WinCrt;
CONST 
  n = 50;
VAR
 i,br : longint;
 x : ARRAY [1..n] OF longint;
 s : longint;
BEGIN
  WRITELN('Sabirati članove niza sve dok je suma manja od 241');
  WRITELN('Upisati clanove niza: ');
  FOR i := 1 TO n DO
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  s:=0;
  i:=1;
  br:=0;
  WHILE (s + x[i] < 241) OR br>n DO 
  BEGIN
   s:=s+x[i];
   br:=br + 1;
   i:=i+1;
  END;
  IF br>0 THEN
  WRITELN('Suma: ', s);
END.

Ispis na ekranu:

Index