Câu hỏi:
12/07/2024 398
Nhập vào một mảng, đếm xem có bao nhiêu phần tử đối xứng,in những phần tử đó ra và tính tổng chúng. Nếu không có phần tử đối xứng in ra 'khong co'
Câu hỏi trong đề: Trắc nghiệm tổng hợp Tin học năm 2023 có đáp án !!
Quảng cáo
Trả lời:
Giải bởi Vietjack
Lời giải:
program Hello;
uses crt;
var a:array[1..100000] of longint;
n,i,d,tong:longint;
function dx(a:longint): boolean;
var b: string;
i: byte;
begin
str(a,b);
for i:= 1 to length(b) div 2 do
if b[i] <> b[length(b) - i +1] then
exit(false);
exit(true);
end;
begin
readln(n);
d:= -1;
for i:= 1 to n do
begin
read(a[i]);
if dx(a[i])= true then d:= 0;
end;
if d = -1 then
writeln('khong co')
else
begin
writeln('Cac phan tu doi xung: ');
for i:= 1 to n do
if dx(a[i]) = true then
begin
inc(d);
tong:= tong + a[i];
write(a[i], ' ');
end;
writeln;
writeln('Co ', d, ' so phan tu doi xung va tong bang ', tong);
end;
readln;
readln;
end.
Hot: 500+ Đề thi thử tốt nghiệp THPT các môn, ĐGNL các trường ĐH... file word có đáp án (2025). Tải ngay
Sách thầy cô Vietjack biên soạn:
- Sổ tay Lịch Sử 12 (chương trình mới) ( 18.000₫ )
- Sổ tay dẫn chứng nghị luận xã hội năm 2025 (chương trình mới) ( 18.000₫ )
- Sổ tay lớp 12 các môn Toán, Lí, Hóa, Văn, Sử, Địa, KTPL (chương trình mới) ( 36.000₫ )
- Tuyển tập 30 đề thi đánh giá năng lực Đại học Quốc gia Hà Nội, TP Hồ Chí Minh (2 cuốn) ( 150.000₫ )
Bình luận
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Lời giải
Lời giải:
Đáp án đúng: D
Xem, sửa, bổ sung và xóa dữ liệu
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ệ.
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.
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.
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.
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.
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.
🔥 Đề thi HOT:
-
15 câu Trắc nghiệm Tin học 12 Cánh diều Mô hình và các giao thức mạng có đáp án
-
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 23 có đáp án
-
15 câu Trắc nghiệm Tin học 12 Cánh diều Giới thiệu trí tuệ nhân tạo có đáp án
-
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 19 có đáp án
-
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 25 có đáp án
-
Bộ 3 đề thi cuối kì 2 Tin 12 Kết nối tri thức có đáp án - Đề 2
-
Trắc nghiệm tổng hợp Tin học năm 2023 có đáp án (Phần 1)
-
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 26 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