Câu hỏi:
12/07/2024 405
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:
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
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.