Trang chủ Tin Học Lớp 9 Đàn bò của nông dân BOP có N con bò...

Đàn bò của nông dân BOP có N con bò và được đánh số thứ tự từ 1 đến N. Con bò thứ i có chi số sức khỏe là S, là một số nguyên dương (1 < S; < 1000), cặp ha

Câu hỏi :

code bằng pascal(dễ hiểu)

image

Lời giải 1 :

var a:array[0..100000] of longword;
    s,i,j,tam,k,n:longword;
    f1,f2:text;
begin
    assign(f1,'KMATCH.INP');reset(f1);
    assign(f2,'KMATCH.OUT');rewrite(f2);
    readln(f1,k,n);
    s:=0;
    for i:=1 to n do read(f1,a[i]);
    for i:=1 to n-1 do
        for j:=i+1 to n do
           if a[i]<a[j] then
              begin
                  tam:=a[i];
                  a[i]:=a[j];
                  a[j]:=tam;
              end;
    for i:=1 to k do
        s:=s+(a[i*2]*a[i*2-1]);
    writeln(f2,s);
    close(f1);close(f2);
end.

Thảo luận

-- bạn NhiTrinh4 ơi
-- vào nhóm mk ko
-- nhóm đg tuyển tv
-- Mình không cày nên không có nhu cầu vào nhóm nhaaa (╥ω╥)
-- lại có người rủ à :))
-- rep tin nhắn đi bạniuuu :3 không chém giờ =)
-- lại có người rủ à :)) -> trước giờ có ai rủ hả =)))
-- =)))

Lời giải 2 :

program Hello;
var n,k,i,t,j:longint;
    a:array[1..1000000] of longint;
    s: qword;
begin
    readln(k,n);
    for i:= 1 to n do read(a[i]);
    for i:= 1 to n do
        for j:=  i + 1 to n do
            if a[i] < a[j] then
                begin
                    t:= a[i];
                    a[i]:= a[j];
                    a[j]:= t;
                end;
i:= 1;
    while i <= k*2 do
        begin
            s:= s + a[i] * a[i+1];
            i:= i + 2;
        end;
    writeln(s);
        
end.

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 9

Lớp 9 - Là năm cuối ở cấp trung học cơ sở, sắp phải bước vào một kì thi căng thẳng và sắp chia tay bạn bè, thầy cô và cả kì vọng của phụ huynh ngày càng lớn mang tên "Lên cấp 3". Thật là áp lực nhưng các em hãy cứ tự tin vào bản thân là sẻ vượt qua nhé!

Nguồn : ADMIN :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK