uses crt;
var a:array[1..100]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;
writeln('Day A=');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln('Tong cac so chan la: ',t);
readln;
end.
cho một dãy số gồm N phần tử(N< hoặc =100)giá trị từng phần tử là số thực,thực hiện các nhiệm vụ sau.
a) nhập từ bàn phím số phần tử và giá trị của phần tử
b)in ra các phần tử là số nguyên tố
c) tính tổng và trung bình cộng của các phần tử chẵn của dãy
d) in các kết quả ra màn hình
Cho dãy số A gồm N số nguyên A1, A2, ..., AN. Dãy số Ap,...,Aq với 1≤p,q≤N được gọi là dãy con của dãy số A. Tổng giá trị các số trong một dãy con được gọi là trọng lượng của dãy con đó. Hãy tìm dãy con có trọng lượng lớn nhất của dãy số A.
Dữ liệu vào là tệp văn bản dayso.inp có cấu trúc:
- Dòng đầu tiên chứa số N (N≤255).
- Dòng thứ hai chứa dãy số A, các số ghi cách nhau ít nhất là một ký tự trống..
Dữ liệu ra là tệp văn bản dayso.out có cấu trúc như sau:
- Dòng đầu tiên chứa hai số cách nhau ít nhất một ký tự trống là chỉ số của số đầu và số cuối của dãy con tìm được.
- Dòng thứ hai chứa trọng lượng của dãy con tìm được.
giúp mình với
Viết chƣơng trình đọc từ tệp ‘bai25.inp’ một số nguyên dƣơngN(1000>N) và dãy số nguyên có N phần tử a1, a2,…aN có giá trị tuyệt đối khôngquá 300000. Ghi thông tin vào tệp ‘bai25.out’ các giá trị sau:a, Số lƣợng số chẵn, số lƣợng số lẻ trong dãyb, kiểm tra dãy số có phải là cấp số cộng không, rồi đƣa ra thông báo
cho tệp songuyen.txt gồm n phần tử ,các số được nhập cách nhau một dấu cách.Tìm những số chẵn trong dãy số trên rồi ghi vào tệp ketqua.txt
nhập vào 1 mảnh b gồm n ptu (dương,âm=0) in ra màn hình các số chẵn trong mảnh in ra màn hình câc số lẽ trong mảnh in ra màn hình các số âm trong mảnh Điếm xem có bao nhiu số vừa đc in ra trong mỗi loại , giải hộ mik vs ạ mik cần gấp :((
cho dãy A gồm n phần tử a1,a2,a3,..,an và 1 só nguyên k hãy tìm xem trong dãy A có phần tử nào bằng k hay không ( thuật toán nhị phân )
Câu 7: Viết chương trình đọc file input.txt, file được bố trí như sau:
- Dòng đầu tiên ghi số nguyên n(1<n<100) là số phần tử của file
- n dòng kế tiếp, mỗi dòng là một số nguyên
ghi ra flie output.txt dãy giảm liên tiếp dài nhất.
- Dòng đầu là số phần tử của dãy
- Dòng 2 là dãy các phần tử tăng dài nhất
Câu 8: Viết chương trình đọc file input.txt, file được bố trí như sau:
- Dòng đầu tiên ghi số nguyên n(1<n<100) là số phần tử của file
- n dòng kế tiếp, mỗi dòng là một số nguyên
ghi ra flie output.txt dãy các số nguyên tố liên tiếp dài nhất liên tiếp dài nhất.
- Dòng đầu là số phần tử của dãy
Dòng 2 là dãy các phần tử tăng dài nhất
Cho tệp dulieuvao txt chứa dãy số nguyên viết chương trình đọc dãy số đó,sắp xếp thành tăng dần rồi ghi kết quả đó vào dulieura txt
ai có thể giúp mình được không ạ
Viết chương trình nhập từ bàn phím 1 bảng các số nguyên gồm 4 hàng 4 cột đưa các giá trị vừa nhập ra màn hình theo bảng. Tính tổng các phần tử trên 2 đường chéo. Đưa các phần tử có hàng chẵn cột lẻ ra màn hình. Ai giúp nhanh hộ e với !!!
