Viết chương trình nhập từ bàn phím số nguyên dương N(N=150) và dãy A gồm N số nguyên A¹ , A²,...An, có giá trị tuyệt đối không lớn hơn 900. Hãy cho biết dãy A có phải cấp số cộng hay không và thông báo kết quả ra màn hình
Hãy dùng phương pháp liệt kê để thể hiện thuật toán của bài toán sau:
Cho một dãy a gồm n số nguyên a1,a2,..an được nhập từ bàn phím (n<=100) có giá trị tuyệt đối không lớn hơn 1000. Hãy cho biết a có phải là một cấp số cộng không?
viết chương trình nhập từ bàn phím số nguyên dương N( N<=100) và dãy số nguyên A1,A2,...An có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình các thông tin sau :
a. Tổng số nguyên chẵn , tổng số nguyên lẻ của dãy số.
b.Tổng giá trị của dãy số .
ai giúp em với ạ, em xin cám ơn
uses crt;
var a:array[1..100]of integer;
i,n,tc,tl,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tc:=0;
tl:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then tc:=tc+a[i]
else tl:=tl+a[i];
end;
writeln('Tong cac so chan la: ',tc);
writeln('Tong cac so le la: ',tl);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
readln;
end.
bài 1 viết chương trình nhập vào từ bàn phím n và dãy số nguyên a1,a2,..,an (0<n<100)
a. In dãy số vừa nhập ra màn hình theo thứ tự ngược lại
b. Kiểm tra xem dãy a1,a2,...,an có phải là dãy số đối xứng hay không?biết dãy số đối xứng là dãy đọc từ trái qua phải cũng giống đọc từ phải qua trái
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")
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên A1, A2, …AN. Tìm và in ra số nhỏ nhất của dãy số vừa nhập? Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình. Input: Số nguyên dương N và dãy số A gồm N số nguyên dương a1, a2, …, an. Output: In ra Phần tử nhỏ nhất của dãy số đó. Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình.
uses crt;
var a:array[1..100]of integer;
i,n,min,tam,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('Gia tri nho nhat la: ',min);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do write(a[i]:4);
readln;
end.
viết chương trình nhập vào mảng một chiều gồm N số nguyên (N<=1000 và mảng A gồm N số nguyên A1,A2,A3,...,An có giá trị tuyệt đối không lớn hơn 1000 hãy đưa ra màng hình những thông tin sau
A nhập mảng
B in mảng
C đếm xem có bao nhiêu phần tử = 0 trong dãy
D tính tổng các phần tử chẵn trong dãy
giúp vs ạ
uses crt;
var a:array[1..1000]of integer;
i,n,dem,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=1000);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until abs(a[i])<=1000;
end;
for i:=1 to n do
write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i]=0 then inc(dem);
writeln('So phan tu bang 0 la: ',dem);
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln('Tong cac phan tu chan la: ',t);
readln;
end.
uses crt;
var a:array[1..200]of integer;
i,n,tbc,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so duong chan la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]>0) then write(a[i]:4);
writeln;
tbc:=0;
dem:=0;
for i:=1 to n do
if (-1000<=a[i]) and (a[i]<=1000) then
begin
tbc:=tbc+a[i];
dem:=dem+1;
end;
writeln('Trung binh cong cac phan tu co gia tri trong pham vi tu -1000 den 1000 la: ',tbc/dem:4:2);
readln;
end.
Cho một dãy gồm N các số nguyên (nhập từ bàn phím). Hãy viết chương trình thực hiện các yêu cầu sau: a. Tìm và tính tổng các số nguyên tố trong dãy. b. Tìm và in ra các số nguyên dương, nguyên âm có trong dãy, tìm số nguyên âm lớn nhất và số nguyên dương nhỏ nhất của dãy. c. Sắp xếp các số nguyên dương lên đầu dãy, các số nguyên âm tiếp theo và cuối cung là số 0. ( Nếu loại số nào không có thì in ra “ Trong day khong có so ...”)
Câu 1. Cho một dãy số gồm n số nguyên (cả âm và dương) với n<=100. Hãy khai báo biến mảng trên?
Câu 2. Viết chương trình nhập từ bàn phím một dãy gồm 10 số. Đưa ra màn hình số nhập thứ 5.
Câu 3. Viết chương trình nhập vào một mảng A (tối đa 15 giá trị) là các số nguyên (Ai<=100)
a) In mảng đã nhập (Mỗi giá trị cách nhau 1 dấu cách)
b) Tính tổng các phần tử chia hết cho 3
c) In ra màn hình các số chẵn ở vị trí lẻ trong dãy
huhu giúp mình với TT
Câu 1:
var a:array[1..100]of integer;
Câu 2:
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
write(a[i]:4);
readln;
end.
Câu 3:
uses crt;
var a:array[1..15]of integer;
i,n,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=15);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]<=100;
end;
writeln('Mang da nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac phan tu chia het cho 3 la: ',t);
writeln('Cac so chan o vi tri le trong day la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2=1) then write(a[i]:4);
readln;
end.
Cho dãy A gồm N số nguyên (N nhỏ hơn hoặc bằng 200) số nguyên A1,A2,...An. Hãy viết chương trình nhập mảng A vào từ bàn phím và đưa ra màn hình tổng các phần tử chia hết cho 5.
Bài 2: Viết chương trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình xâu không chứa dấu cách.
Bài 1:
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(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 5=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 5 la: ',t);
readln;
end.
Bài 2:
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(st);
readln;
end.