Câu hỏi:
13/07/2024 14,878Viế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 3. Thông báo kết quả ra màn hình.
Câu hỏi trong đề:
Top 4 Đề thi Tin học 11 Học kì 1 có đáp án !!
Sách mới 2k7: Tổng ôn Toán, Lí, Hóa, Văn, Sử, Địa…. kỳ thi tốt nghiệp THPT Quốc gia 2025, đánh giá năng lực (chỉ từ 110k).
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 3 = 0) then
begin
Dem:= Dem+1;
Tong:= Tong+a[i];
end;
writeln(‘Dem la:’,Dem);
Writeln(‘Tong la:’,Tong);
Readln
End.
Nhà sách VIETJACK:
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 1:
Để đưa ra màn hình giá trị của biến a kiểu nguyên và biến b kiểu thực ta dùng lệnh:
Xem đáp án »
08/07/2020
65,726
Câu 3:
Cho biết kết quả sau khi thực hiện lệnh:
Begin
a := 100; b := 30; x := a div b; Write(x);
End.
Xem đáp án »
08/07/2020
33,782
Câu 4:
Cho đoạn chương trình sau: x:= 10; y:= 30; writeln(‘x+y’); kết quả màn hình sẽ là gì?
Xem đáp án »
08/07/2020
19,100
Câu 5:
Xét biểu thức logic: (n mod 100 > 10) and (n div 100 < 10)
Với giá trị nào của n sau đây, biểu thức có giá trị đúng?
Xem đáp án »
08/07/2020
7,404
Bình luận
🔥 Đề thi HOT:
-
Đề thi cuối học kì 1 Tin học 11 Kết nối trí thức có đáp án (Đề 3)
-
15 câu Trắc nghiệm Tin học 11 Kết nối tri thức Bài 11 có đáp án
-
15 câu Trắc nghiệm Tin học 11 Kết nối tri thức Bài 10 có đáp án
-
15 câu Trắc nghiệm Tin học 11 Kết nối tri thức Bài 12 có đáp án
-
15 câu Trắc nghiệm Tin học 11 Kết nối tri thức Bài 13 có đáp án
-
Đề thi cuối học kì 1 Tin học 11 Kết nối trí thức có đáp án (Đề 1)
-
15 câu Trắc nghiệm Tin học 11 Kết nối tri thức Bài 14 có đáp án
-
15 câu Trắc nghiệm Tin học 11 Cánh diều Bài toán quản lý và cơ sở dữ liệu có đáp án
về câu hỏi!