BÀI TẬP 34: MUA SÁCH

Nhân dịp năm học mới, một cửa hàng bán sách khuyến mãi: “mua 3, tặng 1, trả tiền 2”, khách hàng mua đúng ba quyển sách được tặng một quyển sách giá rẻ nhất trong ba quyển sách đã mua. Và tất nhiên, khách hàng có thể mua nhiều quyển sách, phụ thuộc vào việc sắp xếp các quyển sách vào mỗi nhóm ba quyển để được nhận được khuyến mãi nhiều nhất.

Yêu cầu: Nhập từ bàn phím số nguyên dương N (1 ≤ N ≤ 100) là số lượng sách (1≤a_i≤100; i=1..n). Tính và xuất ra màn hình:

a) Tổng số tiền sách nếu khách hàng không được khuyến mãi.

b) Tổng số tiền được khuyến mãi nhiều nhất của khách hàng.

Ví dụ:

Nhập từ bàn phím	Xuất ra màn hình
Nhap so quyen sach = 7 Nhap gia: 5 2 3 7 6 8 7	a) Tong so tien = 38 b) Tong khuyen mai = 10

 CODE THAM KHẢO:

Program Mua_Sach;

uses crt;

var a: array[1..100] of longint;

    n,s,tkm,i,j,k,temp: longint;

begin

    clrscr;

    write('Nhap so luong sach N = '); readln(n);

    for i:=1 to n do

        begin

            write('A[',i,']= '); readln(a[i]);

            s:=s+a[i];

        end;

    for i:=1 to n-1 do

        for j:=i+1 to n do

            if a[i] < a[j] then

                begin

                    temp:=a[i];

                    a[i]:= a[j];

                    a[j]:= temp;

                end;

    for k:=1 to n do

        if k mod 3 = 0 then tkm:=tkm+a[k];

    writeln('a) Tong so tien = ', s);

    writeln('b) Tien khuyen mai = ',tkm);

    readln;

end.