Bài 1:
program BaiTap;
var
  A: array of Integer;
  n, i, count, countNeg, sum, max, K: Integer;
begin
  write('Nhap n: ');
  readln(n);

  // Nhập mảng A
  SetLength(A, n);
  writeln('Nhap danh sach A: ');
  for i := 0 to n-1 do
  begin
    write('A[', i+1, '] = ');
    readln(A[i]);
  end;

  // In danh sách A
  writeln('Danh sach A la:');
  for i := 0 to n-1 do
  begin
    writeln(A[i]);
  end;

  // Đếm số lượng phần tử trong A
  count := Length(A);
  writeln('So luong phan tu trong A la: ', count);

  // Đếm số lượng phần tử âm trong A
  countNeg := 0;
  for i := 0 to n-1 do
  begin
    if A[i] < 0 then
      countNeg := countNeg + 1;
  end;
  writeln('So luong phan tu am trong A la: ', countNeg);

  // Tính tổng các phần tử lẻ trong A
  sum := 0;
  for i := 0 to n-1 do
  begin
    if A[i] mod 2 = 1 then
      sum := sum + A[i];
  end;
  writeln('Tong cac phan tu le trong A la: ', sum);

  // Tìm phần tử có giá trị lớn nhất trong A
  max := A[0];
  for i := 1 to n-1 do
  begin
    if A[i] > max then
      max := A