Viet chuong trinh nhap vao 1 mang be hon 20 phan tu
a/ sap xep mang theo thu tu lon dAN
b/ gia tri trung binh cua cac phan tu
c/ in ra phan tu lon nhat va phan tu nho nhat
D/ IN Ra cac phan tu la so chan
viet chuong trinh nhap vao mang 1 chieu ( n nho hon hoac bang 250), in ra tat ca cac phan tu va tinh tong cac phan tu cua mang
uses crt;
var a:array[1..250]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do t:=t+a[i];
writeln(t);
readln;
end.
viet phuong trinh nhap vao mang a gom N(N<=100) cac so nguyen roi thuc hien cac yeu cau
1. in ra danh sach cac so chia het cho 4
2. in ra mang hinh gia tri lon nhat chia het cho 7 va chi so do
3. xuat ra mang hinh cac phan tu cua mang do theo thu tu giam dan
uses crt;
var a,b:array[1..100]of integer;
n,i,dem,max,tam,j:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chia het cho 4 la: ');
for i:=1 to n do
if a[i] mod 4=0 then write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i] mod 7=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
max:=b[1];
for i:=1 to dem do
if max<b[i] then max:=b[i];
writeln('So lon nhat chia het cho 7 la: ',max);
writeln('Cac chi so cua no trong day A la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
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;
writeln('Day so sau khi sap xep giam dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.
viet chuong trinh nhap vao mang so nguyen a(toi da 100 phan tu) tu ban phim in len man hinh cac phan tu chia het cho K (khong duoc nhap vao tu ban phim khi chay chuong trinh) trong mang
Cho mang 1 chieu gom cac phan tu nguyen. Viet chuong trinh nhap gtri cho tung phan tu. Ddeems va hien ra nhung phan tu co gtri \(⋮\) 3.
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
inc(dem);
write(a[i]:4);
end;
writeln;
writeln('So phan tu chia het cho 3 la: ',dem);
readln;
end.
cho phan so 10/12 hay phan tich tu phan so do thanh tong cac phan so sap xep theo thu tu tu be den lon va deu co tu so la 1
Giúp mình với ạ !
viet chuong trinh nhap mang a bat ky tu ban phim( n nho hon hoac bang 100) tinh va xuat ra mang hinh cac phan tu le hoac chan cua may vua nhap
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
if (n>0) and (n<=100) then
begin
t:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if (a[i] mod 2=0) or (a[i] mod 2=1) then t:=t+a[i];
end;
writeln('tong cac phan tu chan hoac le trong day la: ',t);
end
else writeln('vui long nhap lai');
readln;
end.
trinh viet chuong nhap vao 1 mang 1 chieu gom n phan tu ( voi n duoc nhap vao tu ban phim ). Hay thuc hien cac cong viec sau:
-Nhap/xuar mang
- Dem co bao nhieu phan tu la so chan trong mang
-Kiem tra xem mang co phai la mang le hay khong ? ( tat ca cac phan tu mang la so le )
Bạn ơi phải viết bằng ngôn ngữ lập trình gì vậy.
xet tap e gom cac so tu nhien , moi so deu co nam chu so xep theo thu tu ko giam va tap cac chu so cua no la { 1,3,5,7}.
a) mo ta tap e bang cach liet ke cac phan tu cua no,
b) goi n la so lon nhat trong tap e . bieu dien n thanh tong gia tri cac chu so cua no .
tu cac chu so 0,1,3,5 hay viet cac so thap phan be hon 1 ,moi so thap phan deu co ba chu so khac nhau . xep cac so do theo thu tu
tu lon den be;
tu be den lon ;
Có các số : 0,13 , 0,15 , 0,25 , 0,52 , 0,31 , 0,51
Từ bé đến lớn : 0,13; 0,15; 0,25; 0,31; 0,51;0,52
Từ lớn đến bé : 0,52; 0,51; 0,31; 0,25; 0,15; 0,13
tk mk nha bạn ! ai tk mk mk tk lại ! nhớ nói cho mk nha để mk còn biết tk !
Từ các số trên ta lập được các số sau:
0,13 ; 0,15 ; 0,31 ; 0,35 ; 0,51 ; 0,53
Từ lớn đến bé:
0,13 ; 0,15 ; 0,31 ; 0,35 ; 0,51 ; 0,53
Từ lớn đến bé:
0,53 ; 0,51 ; 0,35 ; 0,31 ; 0,15 ; 0,13