Phân tích bài toán:

input: M phần tử các số nguyên B1, B2,…,BM

output: Đếm các phần từ thỏa điều kiện (11 < Bi < 33)

b1: nhập m

b2: nhập mảng

b3: dùng for..do duyệt từng phần tử xem có thỏa mãn điều kiện hay không

b4: xuất kết quả

chương trình:

uses crt;

var b: array[1..100] of integer;

m,i,d: integer;

procedure nhap_dem;

var b: array[1..100] of integer;

i,m,d: integer;

begin

write ('nhap m: ');  readln (m);

for i:=1 to m do

begin

write ('nhap phan tu thu ',i,': ');  readln (b[i]);

if (b[i]>11) and (b[i]<33) then d:=d+1;

end;

end;

begin

clrscr;

nhap_dem;

writeln ('co ',d,' phan tu thoa man dieu kien');

readln;

end.

B1: Nhập M

B2: Nhập mảng gồm M phần tử

B3: Duyệt phần tử trong mảng và kiểm kiểm tra có phù hợp yêu cầu không. Nếu phù hợp thì tăng biến đếm thêm 1.

B4: ghi ra màn hình.

Program Hello;

var m,i,d:longint;

       b:array[1..100000] of longint;

procedure nhap;

begin

    readln(m);

    for i:= 1 to m do

        read(b[i]); 

end;

procedure dem;

begin

    for i:= 1 to m do

        if (b[i] < 33) and  (b[i] > 11) then

            d:= d + 1;

end;

begin

    nhap();

    dem();

    writeln(d);

readln;

readln;

end.