Input: n, dãy A.
Output: Số số có giá trị dương.
Thuật toán:
Bước 1: i ← 1; d ← 0.
Bước 2:
- Nhập A[i].
- Nếu A[i]>0 thì d ← d+1.
Bước 3: i ← i+1.
Bước 4: Nếu i<=n quay lại bước 2. Ngược lại chuyển đến bước 5.
Bước 5: Thông báo d và kết thúc thuật toán.
***Tham khảo thêm:
Hoạt động của thuật toán:
Bước 1: Gán i = 1; d = 0.
Bước 2:
- Nhập A[1] đến A[n].
- Sau mỗi lần nhập, chương trình sẽ kiểm tra: nếu số vừa nhập lớp hơn 0 thì giá trị d tăng thêm 1 đơn vị. (Đếm giá trị).
Bước 3: Sau mỗi vòng lặp, biến đếm tăng thêm 1 đơn vị.
Bước 4: Nếu i ≤ n (điều kiện đúng) thì quay lại thực hiện tiếp câu lệnh. Ngược lại (điều kiện sai) thì chuyển tới bước tiếp theo.
Bước 5: Thông báo số số có giá trị dương có trong dãy và kết thúc thuật toán.
Cách viết chương trình:
- Sử dụng mảng 1 chiều.
+ Cú pháp: var <tên biến mảng>: array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;
+ Tên biến mảng tự đặt (tuân theo quy tắc đặt tên).
+ Chỉ số đầu và chỉ số cuối là kiểu số nguyên. Chỉ số đầu là giá trị 1, chỉ số cuối có thể là 100; 500; 1000;....
+ Trong bài, sử dụng kiểu dữ liệu là integer.
- Sử dụng lệnh lặp với số lần biết trước (có thể dùng lệnh lặp chưa biết trước).
+ Cú pháp: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
+ Giá trị đầu và giá trị cuối là kiểu số nguyên. Giá trị đầu là giá trị 1, giá trị cuối là n.
- Câu lệnh kiểm tra: if <tên mảng>[<biến đếm>]>0 then <giá trị đếm>:=<giá trị đếm>+1;
Viết chương trình:
program phuont;
uses crt;
var A: array[1..500] of integer;
i, n, d: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
d:=0;
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
if A[i]>0 then d:=d+1;
end;
write('Co ', d, ' so co gia tri duong');
readln
end.
