Thuật toán:

B1: Nhập N và dãy số nguyên N

B2: tong←0; i←1;

B3: Nếu i > N thì chuyển đến B6

B4: Nếu `a_i` < 100 thì tong←tong+`a_i`

B5: i←i+1; Quay lại B3

B6: In tong ra màn hình và kết thúc

Chương trình:

program bai_giai;
uses crt;
var a:array[1..1000] of integer;
    n,i,tong:integer;
begin
    clrscr;
    write('Nhap N: ');  readln(n);
    write('Nhap day: ');
    for i:=1 to n do read(a[i]);
    tong:=0;
    for i:=1 to n do
        if a[i]<100 then tong:=tong+a[i];
    write(tong);
    readln; readln;
end.

program az;

uses Crt;

var i,n,a : integer;

          S : longint;

begin

clrscr;

S := 0;

Write('Nhap n = '); readln(n);

For i:=1 to n do 

begin

Write('Nhap phan tu thu ' , i , ' la : '); readln(a);

If (a < 100) then S := S + a;

end;

Writeln('S = ' , S);

end.