Câu hỏi:

12/07/2024 385

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.

Bình luận


Bình luận

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

Câu 1:

Trong bảng phân quyền, các quyền truy cập dữ liệu, gồm có:

Xem đáp án » 27/06/2023 46,280

Câu 2:

Phần mềm nào sau đây không phải là hệ quản trị cơ sở dữ liệu quan hệ

Xem đáp án » 28/06/2023 44,633

Câu 3:

Câu nào là đúng. Sau khi tạo cấu trúc cho bảng thì:

Xem đáp án » 27/06/2023 41,817

Câu 4:

Trong bảng sau đây, mỗi học sinh chỉ có mộ mã số (Mahs):


Khoá chính của bảng là:

Xem đáp án » 27/06/2023 19,516

Câu 5:

Phát biểu nào sai trong các phát biểu sau khi nói về khoá chính?

Xem đáp án » 27/06/2023 18,288

Câu 6:

Bảo mật CSDL:

Xem đáp án » 27/06/2023 18,253

Câu 7:

Sản phẩm công nghiệp điện tử - tin học thuộc nhóm máy tính là:

Xem đáp án » 28/06/2023 15,974
Vietjack official store
Đăng ký gói thi VIP

VIP +1 - Luyện thi tất cả các đề có trên Website trong 1 tháng

  • Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

VIP +3 - Luyện thi tất cả các đề có trên Website trong 3 tháng

  • Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

VIP +6 - Luyện thi tất cả các đề có trên Website trong 6 tháng

  • Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

VIP +12 - Luyện thi tất cả các đề có trên Website trong 12 tháng

  • Siêu tiết kiệm - Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua