Câu hỏi:

08/07/2020 266

Viết chương trình:
- Nhập mảng một chiều các số nguyên (không quá 100 phần tử).
- Đếm và tính tổng các số chẵn và là bội của 5. Thông báo kết quả ra màn hình.

Xem lời giải

Câu hỏi trong đề: Top 4 Đề thi Tin học 11 Học kì 1 có đáp án !!

Bắt đầu thi

Quảng cáo

Trả lời:

Giải bởi Vietjack

Program bt_3;

Uses crt;

Var a: array[1..100] of integer;

Dem, Tong, n, i: integer;

Begin

Clrscr;

Writeln(‘nhap so phan tu, n=’);

Readln (n);

for i := 1 to n do

begin

writeln(‘nhap gia trij phan tu thu ’,i,’ =’);

readln(a[i]);

end;

Dem:=0;

Tong:=0;

For i:=1 to n do

If (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then

begin

Dem:= Dem+1;

Tong:= Tong+a[i];

end;

writeln(‘Dem la:’,Dem);

Writeln(‘Tong la:’,Tong);

Readln

End.

Hot: Học hè online Toán, Văn, Anh...lớp 1-12 tại Vietjack với hơn 1 triệu bài tập có đáp án. Học ngay

Sách thầy cô Vietjack biên soạn:

Xem thêm »

Bình luận

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1

Với lệnh nào sau đây dùng để in giá trị M là kiểu số thực ra màn hình với độ rộng là 5 và có 2 chữ số phần thập phân?

A. Writeln(M:2);

B. Write(M:5);

C. Writeln(M:2:5);

D. Write(M:5:2);

Lời giải

Đáp án đúng : D

Câu 2

Biểu thức ((35 mod 9) div 2) có kết quả là mấy?

A. 1

B. 3

C. 4

D. 2

Lời giải

Đáp án đúng : C

Câu 3

Biết rằng a, b, c là độ dài ba cạnh của một tam giác, biểu thức quan hệ nào sau đây cho kết quả true?

A. b + c > a

B. c - a > b

C. b – a ≥ c

D. b - c > a

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 4

Để thoát khỏi phần mềm, trong Pascal ta nhấn tổ hợp phím:

A. Ctrl + F9

B. Alt + F9

C. Alt + F3

D. Alt + X

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 5

Trong NN lập trình Pascal, biểu thức số học nào sau đây là không hợp lệ:

A. 5*a + 7*b + 8*c

B. 3*a -2*b +8*c

C. x*y*(x +y)

D. {a + b}*c

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 6

Xét biểu thức logic: (m mod 100 < 10) and (m div 100 > 0). Với giá trị nào của m dưới đây biểu thức trên cho giá trị true?

A. 65

B. 208

C. 99

D. 113

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 7

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:
i:=1;
While i < 5 do
Begin
if I mod 2 = 1 then Write(‘TIN HOC’);
i:=i+1;
End;
Chữ TIN HOC được in ra màn hình mấy lần

A. 3

B. 2

C. 1

D. 0

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Xem thêm các câu hỏi khác »

Hỏi bài tập

Đăng ký gói thi VIP

VIP +1 tháng ( 199,000 VNĐ )

VIP +1 - Luyện thi tất cả các đề có trên Website trong 1 tháng

Hơn 100K đề thi thử, đề minh hoạ, chính thức các năm
Với 2tr+ câu hỏi theo các mức độ Nhận biết, Thông hiểu, Vận dụng
Tải xuống đề thi [DOCX] với đầy đủ đáp án
Xem bài giảng đính kèm củng cố thêm kiến thức
Bao gồm tất cả các bậc từ Tiểu học đến Đại học
Chặn hiển thị quảng cáo tăng khả năng tập trung ôn luyện

Mua ngay

VIP +3 tháng ( 299,000 VNĐ )

VIP +3 - Luyện thi tất cả các đề có trên Website trong 3 tháng

Hơn 100K đề thi thử, đề minh hoạ, chính thức các năm
Với 2tr+ câu hỏi theo các mức độ Nhận biết, Thông hiểu, Vận dụng
Tải xuống đề thi [DOCX] với đầy đủ đáp án
Xem bài giảng đính kèm củng cố thêm kiến thức
Bao gồm tất cả các bậc từ Tiểu học đến Đại học
Chặn hiển thị quảng cáo tăng khả năng tập trung ôn luyện

Mua ngay

VIP +6 tháng ( 399,000 VNĐ )

VIP +6 - Luyện thi tất cả các đề có trên Website trong 6 tháng

Hơn 100K đề thi thử, đề minh hoạ, chính thức các năm
Với 2tr+ câu hỏi theo các mức độ Nhận biết, Thông hiểu, Vận dụng
Tải xuống đề thi [DOCX] với đầy đủ đáp án
Xem bài giảng đính kèm củng cố thêm kiến thức
Bao gồm tất cả các bậc từ Tiểu học đến Đại học
Chặn hiển thị quảng cáo tăng khả năng tập trung ôn luyện

Mua ngay

VIP +12 tháng ( 499,000 VNĐ )

VIP +12 - Luyện thi tất cả các đề có trên Website trong 12 tháng

Hơn 100K đề thi thử, đề minh hoạ, chính thức các năm
Với 2tr+ câu hỏi theo các mức độ Nhận biết, Thông hiểu, Vận dụng
Tải xuống đề thi [DOCX] với đầy đủ đáp án
Xem bài giảng đính kèm củng cố thêm kiến thức
Bao gồm tất cả các bậc từ Tiểu học đến Đại học
Chặn hiển thị quảng cáo tăng khả năng tập trung ôn luyện

Mua ngay

Viết chương trình:- Nhập mảng một chiều các số nguyên (không quá 100 phần tử).- Đếm và tính tổng các số chẵn và là bội của 5. Thông báo kết quả ra màn hình.

Bình luận

Với lệnh nào sau đây dùng để in giá trị M là kiểu số thực ra màn hình với độ rộng là 5 và có 2 chữ số phần thập phân?

Biểu thức ((35 mod 9) div 2) có kết quả là mấy?

Biết rằng a, b, c là độ dài ba cạnh của một tam giác, biểu thức quan hệ nào sau đây cho kết quả true?

Để thoát khỏi phần mềm, trong Pascal ta nhấn tổ hợp phím:

Trong NN lập trình Pascal, biểu thức số học nào sau đây là không hợp lệ:

Xét biểu thức logic: (m mod 100 < 10) and (m div 100 > 0). Với giá trị nào của m dưới đây biểu thức trên cho giá trị true?

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:i:=1;While i < 5 do Beginif I mod 2 = 1 then Write(‘TIN HOC’);i:=i+1; End;Chữ TIN HOC được in ra màn hình mấy lần

VIP +1 tháng ( 199,000 VNĐ )

VIP +3 tháng ( 299,000 VNĐ )

VIP +6 tháng ( 399,000 VNĐ )

VIP +12 tháng ( 499,000 VNĐ )

🔥 Đề thi HOT:

CHỌN BỘ SÁCH BẠN MUỐN XEM

Đăng ký

Đăng nhập

Quên mật khẩu

Viết chương trình:
- Nhập mảng một chiều các số nguyên (không quá 100 phần tử).
- Đếm và tính tổng các số chẵn và là bội của 5. Thông báo kết quả ra màn hình.

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:
i:=1;
While i < 5 do
Begin
if I mod 2 = 1 then Write(‘TIN HOC’);
i:=i+1;
End;
Chữ TIN HOC được in ra màn hình mấy lần