- Mô tả thuật toán :

+ Bước 1 : Nhập số n, i ← 1

+ Bước 2 : Nếu i > n thì kết thúc thuật toán

+ Bước 3 :

+ Bước 3.1 : Nhập giá trị cho A[i]

+ Bước 3.2 : i ← i + 1 quay lại bước 2

- Viết chương trình :

uses crt;

var A : array [1 .. 20] of integer;

i, n : integer;

begin

clrscr;

write('Nhap so phan tu : '); readln(n);

write('Nhap ', n ,' so nguyen : ');

for i := 1 to n do read(A[i]);

readln

end.

Thuật toán:

Input: Số n, mảng arr chứa tối đa 20 phần tử

Output: Mảng chứa các số nguyên do người dùng nhập vào

Bước 1: Nhập số n là số lượng phần tử.

Bước 2: i<- 1

Bước 3: Nếu i>n, chuyển sang bước 5.

Bước 4: Kêu người dùng nhập lần lượt giá trị vào arr[i], tăng i lên 1, quay lại bước 3.

Bước 5: Kết thúc thuật toán

Chương trình: (Pascal)

var arr: array[1..20] of longint; i,n: longint;
begin
    write('Nhap so luong phan tu: ');
    readln(n);
    for i:=1 to n do
    begin
        write('Nhap gia tri cho phan tu thu ',i,': ');
        readln(arr[i]);
    end;
    readln;
end.