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'

Quảng cáo

Trả lời:

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

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

Câu 1

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

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

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 4

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 5

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

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 7

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