K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

26 tháng 7 2023

n = int(input("Nhap so phan tu cua day: "))

a = [ ]

for i in range(n):

    a.append(int(input("Nhap phan tu thu " + str(i+1) + ": ")))

max_value = a[0]

max_index = 0

for i in range(1, n):

    if a[i] > max_value:

        max_value = a[i]

        max_index = i

print("Gia tri lon nhat trong day la:", max_value, "tai vi tri", max_index+1)

20 tháng 11 2023

def xoa_phan_tu_chia_het_cho_3(arr):
    return [x for x in arr if x % 3 != 0]

# Nhập số phần tử của dãy
n = int(input())

# Nhập dãy số nguyên
day_so = list(map(int, input().split()))

# Xóa các phần tử chia hết cho 3
ket_qua = xoa_phan_tu_chia_het_cho_3(day_so)

# In ra dãy sau khi xóa
print(*ket_qua)

27 tháng 3 2023

# Yêu cầu người dùng nhập 20 số nguyên không âm
numbers = []
for i in range(20):
    number = int(input("Nhập số nguyên không âm thứ {}: ".format(i+1)))
    numbers.append(number)

# Tính tổng các phần tử là số chẵn ở vị trí lẻ
total = 0
for i in range(1, 20, 2):
    if numbers[i] % 2 == 0:
        total += numbers[i]

# Hiển thị kết quả
print("Tổng các phần tử là số chẵn ở vị trí lẻ là:", total)

31 tháng 12 2020

a) 

Input: Dãy n số nguyên 

Output: Đếm xem trong dãy đó có bao nhiêu số nguyên dương

b) 

Bước 1: Nhập n và nhập dãy số

Bước 2: dem←0; i←1;

Bước 3: Nếu a[i]>0 thì dem←dem+1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Xuất dem

Bước 7: Kết thúc

31 tháng 12 2020

Input: Số nguyên N và dãy a1,a2,...,aN

Output: Số số nguyên có trong dãy

Thuật toán:

- Bước 1: Nhập N và dãy a1,a2,...,aN

- Bước 2: d←0; i←1;

- Bước 3: Nếu i>N thì in ra có d số dương trong dãy và kết thúc

- Bước 4: Nếu ai > 0 thì d←d+1;

- Bước 5: i←i+1, quay lại bước 3

const fi='chuso.inp';      fo='chuso.out';var f1,f2:text;    i,n:integer;    a:array[1..100] of integer;//chuongtrinhconfunction dai(x:integer)var st:string;    d:integer;beginstr(x,st);d:=length(st);dai:=d;end;//chuongtrinhconfunction tong(x:integer)var i,n,d,t,y:integer;    st:string;begin   str(x,st);   d:=length(st);   t:=0;   for i:=1 to d do    begin    val(st[i],n,y);    t:=t+n;    end;   tong:=t;end;//chuongtrinhchinhbeginassign(f1,fi); reset(f1);assign(f2,fo); rewrite(f2);readln(f1,n);for i:=1 to n do  read(f1,a[i]);for i:=1 to n do      writeln(f2,dai(a[i]),' ',tong(a[i]));    close(f1);    close(f2);end.