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.

Chọn A

Chọn B

Chọn A

Chọn A

26 tháng 3 2023

n = int(input("Nhập n: "))

a = [ ]

for i in range(n):

     a.append(int(input(f"Nhập phần tử a[{i}]: ")))

print("Dãy số vừa nhập:")

# In dãy số theo thứ tự ngược lại

print(a[::-1]) 

if a == a[::-1]:

     print("Dãy số là dãy đối xứng")

else:

     print("Dãy số không phải là dãy đối xứng")

Bài 1/ Viết chương trình nhập từ bàn phím hai dãy số nguyên A,B gồm n phần tử (n nhập từ bàn phím và n nhỏ hơn hoặc bằng 30). Trộn 2 dãy số trên thành dãy số mới C theo nguyên tắc sau:a=a1,a2,a3,..,an.b=b1,b2b,b3,...,bn.c=a1,b1,a2,b2,a3,b3,...,an,bn.Vd:   n=6.     A=4 5 6 1 2 3.     B=9 4 7 0 8 4.>> C=4 9 5 4 6 7 1 0 2 8 3 4 .Bài 2/ Nhập vào 1 dãy số nguyên. Cho biết dãy đã sắp xếp chưa tăng dần hay giảm dần. Nếu dãy đã sắp xép hãy...
Đọc tiếp

Bài 1/ Viết chương trình nhập từ bàn phím hai dãy số nguyên A,B gồm n phần tử (n nhập từ bàn phím và n nhỏ hơn hoặc bằng 30). Trộn 2 dãy số trên thành dãy số mới C theo nguyên tắc sau:

a=a1,a2,a3,..,an.

b=b1,b2b,b3,...,bn.

c=a1,b1,a2,b2,a3,b3,...,an,bn.

Vd:   n=6.     A=4 5 6 1 2 3.     B=9 4 7 0 8 4.

>> C=4 9 5 4 6 7 1 0 2 8 3 4 .

Bài 2/ Nhập vào 1 dãy số nguyên. Cho biết dãy đã sắp xếp chưa tăng dần hay giảm dần. Nếu dãy đã sắp xép hãy cho nhập số n bất kì và chèn vào dãy sao cho dãy vẫn đảm bảo được sắp xếp (không được sắp xếp sau khi chèn thêm). Nếu dãy chưa sắp xếp thì sắp xếp lại dãy tăng dần. 

Vd:   Dữ liệu vào: 5 6 7 8 9; n=6.

        Dữ liệu ra: dãy đã được sắp xếp tăng dần và sau khi chèn thêm n là: 5 6 6 7 8 9.

" giúp e vs 19h 29/7 e nộp r "

1
29 tháng 7 2021

Bài 1:

Uses crt;

var i,n,j:integer;

     a,b,c:array[1..100000] of integer;

Begin

clrscr;

readln(n);

for i:= 1 to n do readln(a[i]);

for i:= 1 to n do readln(b[i]);

j:=0;

for i:= 1 to n do 

  Begin

  inc(j);

  c[j] := a[i];

  inc(j);

  c[j] := b[i];

  end;

for i:= 1 to j do write(c[i],'  ');

readln;

end. 

29 tháng 7 2021

thank a nha

10 tháng 5 2022

THAM KHẢO:

undefined

1 tháng 3 2021

Thiếu đề!!

1 tháng 3 2021

tham khảo

12 tháng 5 2021

program Tinhtong;

uses crt;

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

sum,n:integer;

 

begin clrscr;

write('Nhap n = '); readln(n);

for i:=1 to n do

begin

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

end;

sum:=0;

for i:=1 to n do

if (a[i] mod 2 = 0) then sum:=sum+a[i];

 

write('Tong cac so chan = ',sum);

readln;

end.

12 tháng 5 2021

cảm ơn bạn nha ,nhờ bạn mình nộp kịp bài