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.
Program HOC24;
var i,n: byte;
a: array[1..100] of integer;
tbc: real;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
tbc:=0; t:=0;
end;
for i:=1 to n do
begin
tbc:=tbc+a[i];
if a[i] mod 2=1 then t:=t+a[i];
end;
writeln('Trung binh cong cac phan tu la: ',btc/n:5:2);
write('Tong cac so le la :',t);
readln
end.
bài 2: bạn nên nhớ nếu khai báo như vậy thì chắc chắn pascal nó sẽ báo lỗi trùng biến a
phải khai báo biến khác a sau khi đã khai báo a là array và ngược lại
Câu 2:
uses crt;
var a,d,e,f:array[1..100]of integer;
c,b,n,i,kt,dem1,dem2,dem:integer;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{----------------------------xu-ly--------------------------}
write('nhap b='); readln(b);
write('nhap c='); readln(c);
dem:=0; dem1:=0; dem2:=0;
for i:=1 to n do
begin
kt:=0;
if (a[i]>=b) and (a[i]<=c) then
begin
kt:=1;
inc(dem);
d[dem]:=a[i];
end;
if a[i]<b then
begin
kt:=2;
dem1:=dem1+1;
e[dem1]:=a[i];
end;
if kt=0 then
begin
inc(dem2);
f[dem2]:=a[i];
end;
end;
for i:=1 to dem do
write(d[i]:4);
for i:=1 to dem1 do
write(e[i]:4);
for i:=1 to dem2 do
write(f[i]:4);
readln;
end.
Bài 3:
uses crt;
var i:integer;
{------------------chuong-trinh-con-kiem-tra-so-nguyen-to----------------------}
function ktnt(x:integer):boolean;
var kt:boolean;
i:integer;
begin
kt:=true;
for i:=2 to x-1 do
if x mod i=0 then kt:=false;
if kt=true then ktnt:=true
else ktnt:=false;
end;
{-------------------------chuong-trinh-chinh----------------------------}
begin
clrscr;
for i:=2 to 9999 do
if (ktnt(i)=true) and (ktnt(i+2)=true) then
begin
writeln(i,',',i+2);
delay(500);
end;
readln;
end.
Bài 4:
uses crt;
var a,b,c,kt:integer;
begin
clrscr;
write('Nhap ngay:'); readln(a);
write('Nhap thang:'); readln(b);
write('Nhap nam:'); readln(c);
kt:=0;
if (b=1) and (0<a) and (a<=31) then kt:=1;
if (b=2) and (0<a) and (a<=28) then kt:=1;
if (b=2) and (0<a) and (a<=29) and (c mod 4=0) then kt:=1;
if (b=3) and (0<a) and (a<=31) then kt:=1;
if (b=4) and (0<a) and (a<=30) then kt:=1;
if (b=5) and (0<a) and (a<=31) then kt:=1;
if (b=6) and (0<a) and (a<=30) then kt:=1;
if (b=7) and (0<a) and (a<=31) then kt:=1;
if (b=8) and (0<a) and (a<=31) then kt:=1;
if (b=9) and (0<a) and (a<=30) then kt:=1;
if (b=10) and (0<a) and (a<=31) then kt:=1;
if (b=11) and (0<a) and (a<=30) then kt:=1;
if (b=12) and (0<a) and (a<=31) then kt:=1;
if kt=0 then writeln('Khong hop le')
else writeln('Hop le');
readln;
end.
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)
Khi bạn làm bài tập lập trình mà có các cụm từ khóa sau:
Thì cả 3 đề bài này đều là bài toán sắp xếp dữ liệu trên mảng 1 chiều. Khi nhắc tới “dãy số” thì bạn phải nghĩ ngay tới mảng 1 chiều. Dưới đây là 1 số lưu ý tham khảo trước khi tiếp tục đọc bài viết này:
2. Sắp xếp dãy số giảm dần
Trong code mà mình cung cấp dưới đây thì mình sẽ dùng thuật toán sắp xếp chọn – một thuật toán sắp xếp dễ hiểu và dễ cài đặt nhất.
Xem hình dưới đây để hiểu ý tưởng sắp xếp, xem chi tiết tại bài thuật toán sắp xếp chọn
Code sắp xếp mảng/ dãy số giảm dần với C/C++:
Chạy thử:
3. Sắp xếp dãy số tăng dần
Việc sắp xếp dãy số tăng dần chỉ khác sắp xếp giảm dần duy nhât ở bước kiểm tra điều kiện để hoán vị.
Kết quả chạy thử:
4. Sắp xếp dãy số tăng, giảm dần với hàm
Việc dùng hàm sẽ giúp code của chúng ta rõ ràng, sạch sẽ và cũng dễ quản lý, nâng cấp. Với bài toán này, chúng ta có thể viết 4 hàm riêng biệt sau:
Kết quả chạy chương trình
Chú ý: