Question

 trong một cửa hiệu bán sách.để dễ quản lý các loại sách có trong hiệu sách, người bán hàng đã gán tương ứng mỗi loại sách với một số nguyên dương, hai loại sách khác nhau có số được gán là hai số nguyên dương khác nhau.em hãy viết chương trình pascal giúp chủ cửa hiệu tìm loại sách còn nhiều nhất và số lượng còn là bao nhiệu.

Answer 1

program sach_cua_hieu;

const

     MAX_LOAI_SACH = 1000;

     MIN_SO_LUONG = 1;

var

     loai_sach: array[1..MAX_LOAI_SACH] of integer;

     so_luong: array[1..MAX_LOAI_SACH] of integer;

     n: integer;

     i, max_so_luong, loai_sach_nhieu_nhat: integer;

begin

     write('Nhập số loại sách: ');

     readln(n);

     for i := 1 to n do

     begin

          write('Nhập số lượng sách của loại ', i, ': ');

          readln(so_luong[i]);

          loai_sach[i] := i;

     end;

     max_so_luong := MIN_SO_LUONG;

     loai_sach_nhieu_nhat := 1;

     for i := 1 to n do

     begin

          if so_luong[i] > max_so_luong then

          begin

               max_so_luong := so_luong[i];

               loai_sach_nhieu_nhat := i;

          end;

     end;

     writeln('Loại sách còn nhiều nhất là loại ', loai_sach[loai_sach_nhieu_nhat]);

     writeln('Số lượng còn lại là ', max_so_luong);

end.