Những câu hỏi liên quan
H24
Xem chi tiết
NT
10 tháng 4 2022 lúc 19:03

Chọn B

Bình luận (0)
H24
Xem chi tiết
NT
11 tháng 4 2022 lúc 18:46

Chọn A

Bình luận (0)
H24
Xem chi tiết
NT
11 tháng 4 2022 lúc 18:47

Chọn A

Bình luận (0)
HT
Xem chi tiết
GB
26 tháng 3 2023 lúc 22:37

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ình luận (0)
ST
Xem chi tiết
VB
Xem chi tiết
NT
29 tháng 7 2021 lúc 10:42

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. 

Bình luận (1)
TN
Xem chi tiết
DL
10 tháng 5 2022 lúc 8:06

THAM KHẢO:

undefined

Bình luận (0)
TN
Xem chi tiết
TG
1 tháng 3 2021 lúc 9:03

Thiếu đề!!

Bình luận (0)
H24
1 tháng 3 2021 lúc 9:03

tham khảo

Bình luận (1)
NT
Xem chi tiết
ND
12 tháng 5 2021 lúc 8:52

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.

Bình luận (1)