Program HOC24;

var a: array[1..1000] of integer;

i,n : integer;

t: longint;

begin

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do if a[i] mod 3 = 0 then t:=t+a[i];

write('Tong cac so la boi cua 3 trong danh sach la: ',t);

readln

end.

Câu 1

Câu 2

a = []

sum = 0

n = 5

# Nhập danh sách a

for i in range(n):

     x = int(input("Nhập phần tử thứ " + str(i+1) + ": "))

     a.append(x)

# Tính tổng các phần tử trong danh sách a

for i in range(n):

     sum += a[i]

# In ra màn hình tổng các phần tử trong danh sách a

print("Tổng các phần tử trong danh sách a là: ", sum)

cứu em với mn còn 30p cuối thôi

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..1000] of integer;

begin

write('Nhap so phan tu : '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Ket qua la: ',t);

readln

end.

# Nhập danh sách số nguyên
lst = []
n = int(input("Nhập số lượng số nguyên trong danh sách: "))
for i in range(n):
    lst.append(int(input("Nhập số nguyên thứ {}: ".format(i+1))))

# Tính tổng các số trong danh sách
total = sum(lst)

# Đưa ra kết quả
print("Tổng các số trong danh sách là:", total)

1. Giá trị của A[5] là "Two"

2. Giá trị của a[len(A)] -> Báo lỗi do len(A) = 8 khi đó A[8] không tồn tại.

3. Thay phần tử tại vị trí 3 thành 8 -> A = [1, 0, "one", 8, 15, "Two", True, False]

4. Xóa phần tử tại vị trí 4 -> A = [1, 0, "one", 8, "Two", True, False]

5. Ghép 50 vào đầu danh sách -> A = [50, 1, 0, "one", 8, "Two", True, False]

6. Giá trị của A[3] là "one" -> A = "oneoneoneoneoneoneoneoneone"

7. A = []