Câu hỏi:
08/07/2020 530Viế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ố lẻ và là bội của 5. 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: Bộ 20 đề minh họa Toán, Lí, Hóa, Văn, Sử, Địa…. form chuẩn 2025 của Bộ giáo dục (chỉ từ 49k/cuốn).
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 = 1) 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.
Nhà sách VIETJACK:
Trọng tâm Sử, Địa, GD KTPL 11 cho cả 3 bộ Kết nối, Chân trời, Cánh diều VietJack - Sách 2025
Đã bán 104
₫ 136.000
₫ 38.000
Sách - Sổ tay kiến thức trọng tâm Vật lí 11 VietJack - Sách 2025 theo chương trình mới cho 2k8
Đã bán 211
₫ 119.000
₫ 45.000
Sách lớp 11 - Trọng tâm Toán, Lý, Hóa, Sử, Địa lớp 11 3 bộ sách KNTT, CTST, CD VietJack
Đã bán 1k
₫ 104.000
₫ 52.000
Sách lớp 10 - Combo Trọng tâm Toán, Văn, Anh và Lí, Hóa, Sinh cho cả 3 bộ KNTT, CD, CTST VietJack
Đã bán 218
₫ 130.000
₫ 75.000
Bình luận
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 1:
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?
Xem đáp án »
08/07/2020
50,561
Câu 2:
Trong 1 chương trình, biến M có thể nhận các giá trị: 10, 15, 20, 30, 40 và biến N có thể nhận các giá trị: 1.0, 1.5, 2.0, 2.5, 3.0. Khai báo nào trong các khai báo sau là đúng?
Xem đáp án »
08/07/2020
32,411
Câu 3:
Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:
Var M, N, I, J: INTEGER;
P, A, B: REAL;
X: EXTENDED;
K:WORD;
Xem đáp án »
08/07/2020
13,964
Câu 4:
Biểu thức: sqr(sqrt(x+y)/x-sqr(x-y)/y) viết trong toán học sẽ là biểu thức nào dưới đây?
Xem đáp án »
08/07/2020
8,854
Câu 7:
Cho biết kết quả của đoạn chương trình sau?
N:=5; Tong:=0;
For i:=1 to n do
If (i mod 3=0) then Tong:=Tong + i;
Write(Tong);
Xem đáp án »
08/07/2020
5,576
🔥 Đề thi HOT:
-
Bộ 4 đề thi giữa học kì 2 Tin 11 Kết nối tri 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 17 có đáp án
-
Bộ 4 đề thi giữa học kì 2 Tin 11 Kết nối tri thức có đáp án (Đề 2)
-
15 câu Trắc nghiệm Tin học 11 Kết nối tri thức Bài 21 có đáp án
-
Bộ 4 đề thi giữa học kì 2 Tin 11 Kết nối tri thức có đáp án (Đề 4)
-
15 câu Trắc nghiệm Tin học 11 Kết nối tri thức Bài 19 có đáp án
-
Bộ 4 đề thi giữa học kì 2 Tin 11 Kết nối tri 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 20 có đáp án
Hãy Đăng nhập hoặc Tạo tài khoản để gửi bình luận
-
-
Bình luận