Thứ bảy, 23/11/2024
IMG-LOGO

Câu hỏi:

21/07/2024 213

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.

Trả lời:

verified Giải bởi qa.haylamdo.com

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.

Câu trả lời này có hữu ích không?

0

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

Câu 1:

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

Xem đáp án » 01/09/2021 5,013

Câu 2:

Biểu thức 7 mod 3 có giá trị là:

Xem đáp án » 01/09/2021 3,913

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?

Xem đáp án » 01/09/2021 3,699

Câu 4:

Để nhập giá trị cho 3 biến a, b và c ta dùng lệnh:

Xem đáp án » 01/09/2021 2,145

Câu 5:

Cho giá trị a=25, b=10, c=6, k=3. Hãy xác định giá trị của biểu thức A:

A := Sqrt(a) + b div k >= a mod b + c

(Tính cụ thể từng bước)

Xem đáp án » 01/09/2021 1,756

Câu 6:

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

Xem đáp án » 01/09/2021 1,679

Câu 7:

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 » 01/09/2021 1,381

Câu 8:

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

Xem đáp án » 01/09/2021 1,373

Câu 9:

Cho biết kết quả của biểu thức (2*(45 div 3) +12) mod 5 là bao nhiêu?

Xem đáp án » 01/09/2021 1,276

Câu 10:

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

Xem đáp án » 01/09/2021 1,218

Câu 11:

Câu lệnh y:= (((x - 2)*x - 3)*x - 4)*x - 5; tính giá trị của biểu thức nào?

Xem đáp án » 01/09/2021 1,151

Câu 12:

Trong pascal, biểu diễn exp(x) có nghĩa là:

Xem đáp án » 01/09/2021 1,059

Câu 13:

Xét biểu thức logic: (n mod 100 > 10) or (n div 100 < 10)

Với giá trị nào của n sau đây, biểu thức có giá trị sai?

Xem đáp án » 01/09/2021 966

Câu 14:

Phép toán nào đúng khi số nguyên A chia hết cho 5:

Xem đáp án » 01/09/2021 820

Câu 15:

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?

Xem đáp án » 01/09/2021 602