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.
