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'

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'

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.

Câu hỏi cùng chủ đề

Xem tất cả