Bằng cách nhấp vào Đăng nhập, bạn đồng ý Chính sách bảo mật và Điều khoản sử dụng của chúng tôi. Nếu đây không phải máy tính của bạn, để đảm bảo an toàn, hãy sử dụng Cửa sổ riêng tư (Tab ẩn danh) để đăng nhập (New Private Window / New Incognito Window).
uses crt;
var i,n,c,x,s,l,d,j,tam,m:integer;
a,b:array[1..100]of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
write('nhap so x:');readln(x);
l:=1; m:=0;
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
if (a[i] mod 3=0) and(a[i] <>0) then
begin
s:=s+a[i];
m:=m+1;
end;
if a[i]=x then c:=c+1;
if a[i] <> 0 then
begin
b[l]:=a[i];
l:=l+1;
end;
end;
writeln('trong day so ',x,' xuat hien ',c,' lan');
write('day sau khi da xoa cac so 0 la:');
for i:=1 to l-1 do write(b[i],';');
l:=1;
for i:=1 to n do
begin
d:=0;
for j:=1 to a[i] do
if a[i] mod j=0 then d:=d+1;
if d=2 then
begin
tam:=a[i];
a[i]:=a[l];
a[l]:=tam;
l:=l+1;
end;
end;
writeln;
write('sap xep day:');
for i:=1 to n do write(a[i],';');
writeln;
writeln('trung binh cong cua ca so chia het cho 3 co trong day la:',s/m:4:2);
readln;
end.
(mong dc 5*+hay nhất)
Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi
Vui | Buồn | Bình thường |