program goi_mang;

uses crt;

type kmang=array[1..1000] of integer;

var A:kmang;

      n,i:integer;

{---Goi---}

procedure goi(A:kmang; n:integer);

var j:integer;

begin

      write('Mang la: ');

      for j:=1 to n do write(A[j],' ');

end;

{---CT-chinh---}

BEGIN

      clrscr;

      write('Nhap N: ');   readln(n);

      for i:=1 to n do 

            begin

                  write('A[',i,']= ');   readln(A[i]);

            end;

      goi(A,n);

      readln;

end.

Để giải quyết bài toán cần phải đảm bảo các vấn đề:

-          Nhập mảng, có thể xây dựng thành hàm để đóng gói và sử dụng lại. Các thao tác theo yêu cầu:

(1) Nhập số N.

(2) Tiến hành lặp (từ 0 đến N-1) và nhập cho các giá trị A_i trong mảng.

Lưu ý: N phải được vào truyền theo dạng tham biến (tức là &N)

-          Xuất mảng. Công việc đơn giản là sử dụng voøng lặp từ 0 đến N-1 để in ra các giá trị A_i cho mảng. Sau đó, Writeln  xuống dòng.

-          Hàm tính tổng các phần tử cho một mảng A

o       Khai báo và khởi tạo toång S là 0.

o       Sử dụng một vòng lặp (từ 0 đến N-1 để duyệt qua tất cả các giá trị Ai) để tính cộng dồn giá trị của A_i vào tổng S.

-          Viết thân chöông trình chính với nội dung dùng để kiểm tra kết quả thực hiện của hàm.

o       Khai báo mảng A có tối đa 20 phần tử và biến N chỉ số lượng phần tử của A.

o       Gọi hàm nhập mảng để nhập mảng A, với N phần tử.

o       Gọi hàm xuất mảng A, với N phần tử.

o       In giá trị của tổng các phần tử bằng cách truyền trực tiếp giá trị trả về của việc tính tổng cho Writeln(……)

o       Gọi hàm Readln( ) trước khi kết thúc  để dừng lại xem kết quả.