khoahoc.vietjack.com
Xin chào! Vào học

Câu hỏi:

19/08/2025 923 Lưu

Viết chương trình nhập từ bàn phím số nguyên dương n, n nhỏ hơn bằng 200,và dãy số nguyên A gồm n phần tử. In ra màn hình số các số dương chẵn, tính TBC các phân tử có giá trị trong phạm vi từ trừ 1000 đến 1000

Quảng cáo

Trả lời:

verified Giải bởi Vietjack

Lời giải:

uses crt;

var a:array[1..200]of integer;

i,n,tbc,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

       write('A[',i,']='); readln(a[i]);

  end;

writeln('Cac so duong chan la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i]>0) then write(a[i]:4);

writeln;

tbc:=0;

dem:=0;

for i:=1 to n do 

  if (-1000<=a[i]) and (a[i]<=1000) then

begin

tbc:=tbc+a[i];

dem:=dem+1;

end;

writeln('Trung binh cong cac phan tu co gia tri trong pham vi tu -1000 den 1000 la: ',tbc/dem:4:2);

readln;

end.

Đang tải chế độ Học...

Dành cho bạn Hot

Luyện đề →
Lớp 12 Toán
128 người thi tuần này

7881 câu Trắc nghiệm tổng hợp môn Toán 2023 cực hay có đáp án ( Phần 1)

304 câu 139.3 K lượt thi Thi ngay →
Lớp 12 Hóa học
103 người thi tuần này

Trắc nghiệm Protein và enzyme lớp 12 (có đáp án)

15 câu 1.7 K lượt thi Thi ngay →
Lớp 12 Tiếng Anh
148 người thi tuần này

Đề cương ôn tập giữa kì 1 Tiếng Anh 12 Global Success có đáp án

45 câu 1.2 K lượt thi Thi ngay →
Lớp 12 Sinh học
138 người thi tuần này

10 câu trắc nghiệm Sinh học 12 Kết nối tri thức Bài 8 có đáp án

10 câu 1.9 K lượt thi Thi ngay →
Lớp 12 Lịch sử
428 người thi tuần này

20 câu trắc nghiệm Lịch sử 12 Kết nối tri thức Bài 5 có đáp án

20 câu 4.1 K lượt thi Thi ngay →
Lớp 12 Tin học
286 người thi tuần này

15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 7 có đáp án

15 câu 5.7 K lượt thi Thi ngay →
Lớp 12 Giáo dục Kinh tế và Pháp luật
879 người thi tuần này

15 Câu trắc nghiệm KTPL 12 Kết nối tri thức Bài 1 có đáp án

15 câu 8.8 K lượt thi Thi ngay →

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

Câu 1

A. Đọc dữ liệu
B. Xem, bổ sung, sửa, xóa và không truy cập dữ liệu
C. Thêm dữ liệu
D. Xem, sửa, bổ sung và xóa dữ liệu

Lời giải

Lời giải:

Đáp án đúng: D

Xem, sửa, bổ sung và xóa dữ liệu

Câu 2

A. Microsoft Access
B. Oracle
C. Microsoft SQL server
D. Microsoft Excel

Lời giải

Lời giải:

Đáp án D.

Microsoft Excel không phải là hệ quản trị cơ sở dữ liệu quan hệ.

Câu 3

A. Có thể lưu lại cấu trúc và nhập dữ liệu sau
B. Không thể sửa lại cấu trúc
C. Tạo mẫu hỏi ngay
D. Phải nhập dữ liệu ngay

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để 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

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để 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

A. Một bảng có thể có nhiều khoá chính
B. Mỗi bảng có ít nhất một khoá
C. Xác định khoá phụ thuộc vào quan hệ logic của các dữ liệu chứ không phụ thuộc vào giá trị các dữ liệu
D. Nên chọn khoá chính là khoá có ít thuộc tính nhất

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để 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. Khoá chính = {Mahs}
B. Khoá chính = {HoTen, Ngaysinh, Lop, Diachi, Toan}
C. Khoá chính = {HoTen, Ngaysinh, Lop, Diachi, Li}
D. Khoá chính = {HoTen, Ngaysinh, Lop, Diachi}

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để 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

A. Thiết bị công nghệ, phần mềm
B. Linh kiện điện tử,các vi mạch.
C. Ti vi màu, đồ chơi điện tử, catset.
D. Máy fax, điện thoại, mạng viba

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để 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