uses crt;

var B:array[1..500] of real;

begin

readln

end.

Theo đề bài thì chỉ có thế thôi.(Nếu có sai thì thông cảm nhee)

• 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ị Ai 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ị Ai 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
  • Khai báo và khởi tạo mảng S là 0.
  • 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 Ai 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.
  • 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.
  • Gọi hàm nhập mảng để nhập mảng A, với N phần tử.
  • Gọi hàm xuất mảng A, với N phần tử.
  • 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(……)