Viết chương trình Pascal có sử dụng biến mảng để nhập số phần tử, nhập các phần tử và in các phần tử của một dãy số nguyên ra màn hình. Tính tổng tất cả các phần tử của dãy số đó.

program ArraySum;
var
  arr: array of integer;
  sum: integer;
  n, i: integer;
begin
  write('Nhap so phan tu cua day: ');
  readln(n);
  SetLength(arr, n); // khoi tao kich thuoc mang

  // nhap cac phan tu cua mang
  writeln('Nhap cac phan tu cua mang:');
  for i := 0 to n-1 do
  begin
    write('arr[', i, '] = ');
    readln(arr[i]);
  end;

  // tinh tong cac phan tu cua mang
  sum := 0;
  for i := 0 to n-1 do
  begin
    sum := sum + arr[i];
  end;

  // in cac phan tu cua mang va tong cua mang ra man hinh
  writeln('Cac phan tu cua mang:');
  for i := 0 to n-1 do
  begin
    write(arr[i], ' ');
  end;
  writeln;
  writeln('Tong cac phan tu cua mang la: ', sum);
end.

 Giải thích:

- Dòng 4: Khai báo biến mảng `arr` chứa các số nguyên và biến 'sum' chứa tổng các phần tử của mảng.

- Dòng 6-7: Khai báo biến `n` để lưu số phần tử của mảng và biến `i` để lặp qua các phần tử của mảng.

- Dòng 9: Yêu cầu người dùng nhập số phần tử của mảng `n`.

- Dòng 10: Sử dụng hàm `SetLength` để tạo một mảng có kích thước `n`.

- Dòng 13-17: Yêu cầu người dùng nhập giá trị cho từng phần tử của mảng bằng cách lặp qua từng phần tử và sử dụng hàm `readln` để nhập giá trị từ bàn phím.

- Dòng 20-24: Tính tổng các phần tử của mảng `arr` bằng cách duyệt qua từng phần tử và cộng lại vào biến 'sum'.

- Dòng 27-33: In ra các phần tử của mảng và tổng của mảng ra màn hình bằng cách lặp qua các phần tử của mảng và sử dụng hàm `write` để in giá trị và dấu cách. Sau khi kết thúc vòng lặp, sử dụng lệnh `writeln` để xuống dòng.