[Tin học 8] Chương trình Pascal tìm Max, Min trong 1 dãy số và in ra vị trí.

Thiên Thuận

Cựu Mod Anh |GOLDEN Challenge’s first runner-up
Thành viên
TV ấn tượng nhất 2017
24 Tháng ba 2017
3,800
13,157
1,029
Vĩnh Long
Đại học Đồng Tháp - Ngành Sư phạm Tiếng Anh

Attachments

  • MAXMIN.TXT
    647 bytes · Đọc: 109
  • MAXMIN(INP).TXT
    11 bytes · Đọc: 66
  • MAXMIN(OUT).TXT
    68 bytes · Đọc: 109

naive_ichi

Cựu Mod Hóa
Thành viên
27 Tháng tư 2014
480
433
196
23
Tin 15-18 CTB
Bạn chưa khởi tạo giá trị ban đầu của i2 và i3. Bạn thêm vào: "i2:=1; i3:=1;" trước khi duyệt tìm Min, Max thì sẽ khắc phục được.
Lí do: Test của bạn đặc biệt, số 2 là số nhỏ nhất và ở vị trí thứ 1, bạn chỉ khởi gán Min:=A[1] chứ chưa gán giá trị i3:=1 -----> i3 được mặc định giá trị là 0, cho nên khi for i:=1 to n sẽ không gặp số nào nhỏ hơn 2 nên giá trị của i3 sẽ vẫn là 0 tới cuối chương trình.
 
  • Like
Reactions: Thiên Thuận
Top Bottom