Trang chủ
Giải bài tập Online
Flashcard - Học & Chơi
Dịch thuật
Cộng đồngTrắc nghiệm tri thức
Khảo sát ý kiến
Hỏi đáp tổng hợp
Đố vui
Đuổi hình bắt chữ
Quà tặng và trang trí
TruyệnThơ văn danh ngôn
Xem lịchCa dao tục ngữXem ảnhBản tin hướng nghiệp
Chia sẻ hàng ngày
Bảng xếp hạngBảng Huy hiệuLIVE trực tuyếnĐề thi, kiểm tra, tài liệu học tậpCâu 1 Hãy viết chương trình để thực hiện các các công việc sau:
a) Nhập vào từ bàn phím số nguyên N, dãy số nguyên A có N phần tử (0 < n < 101).
b) Đếm các số chẵn dương của dãy A.
c) Tính tổng các số chẵn dương của dãy A.
d) Tính trung bình cộng các số chẵn dương của dãy A và hiển thị các kết quả tính được.
Câu 2 Hãy viết chương trình để thực hiện các các công việc sau:
a) Nhập vào từ bàn phím số nguyên N và dãy số A có N phần tử (0 < n < 101).
b) Tìm số nhỏ nhất của dãy A.
c) Loại bỏ các số nhỏ nhất ra khỏi dãy A.
d) Hiển thị số nhỏ nhất và dãy A sau khi đã loại bỏ các số nhỏ nhất.
Câu 3 Hãy viết chương trình để thực hiện các các công việc sau:
a) Nhập vào từ bàn phím số nguyên N, dãy số A có N phần tử (0 < n < 101), sau đó nhập thêm số nguyên k (0 < k < n).
b) Hãy thực hiện xóa số ở vị trí thứ k của dãy A.
c) Hiển thị dãy sau khi đã xóa số lên màn hình.
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 a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);</p><p>for i:=1 to n do</p><p>begin</p><p>write('A[',i,']='); readln(a[i]);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
writeln('Cac so chan trong day la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
writeln('Cac so le trong day la: ');
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
| Tham gia Cộng đồng Lazi trên các mạng xã hội | |
| Fanpage: | https://www.fb.com/lazi.vn |
| Group: | https://www.fb.com/groups/lazi.vn |
| Kênh FB: | https://m.me/j/AbY8WMG2VhCvgIcB |
| LaziGo: | https://go.lazi.vn/join/lazigo |
| Discord: | https://discord.gg/4vkBe6wJuU |
| Youtube: | https://www.youtube.com/@lazi-vn |
| Tiktok: | https://www.tiktok.com/@lazi.vn |
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 |
Học ngoại ngữ với Flashcard
Trợ lý ảo
Gia sư
Học gia sư
Xem thêm 
Thưởng th.10.2024
Bảng xếp hạng
