Câu hỏi:

19/08/2025 15,498 Lư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 3. Thông báo kết quả ra màn hình.

Quảng cáo

Trả lời:

verified 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.

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

Câu 1

A. Write(a:8:3, b:8);

B. Readln(a,b);

C. Writeln(a:8, b:8:3);

D. Writeln(a:8:3, b:8:3);

Lời giải

Đáp án đúng : C

Câu 2

A. Write(a,b);

B. Real(a.b);

C. Read(‘a,b’);

D. Readln(a,b);

Lời giải

Đáp án đúng : D

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

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

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

A. Bình phương của x

B. Căn bậc hai của x

C. Giá trị tuyệt đối của x

D. Luỹ thừa cơ số e của 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