Bài 1 

a,

B1 gán max=a[1];

B2 xét nếu max<a[i] thì gán max=a[i];

B3 inkeets quả ra màn hình

uses crt;

var i,n: longint;

begin

clrscr;

readln(n);

for i:=1 to n do write(i,' ');

readln

end.

kết quả chỉ ra yes là sao bro

Lỗi 201. Range check error: Lỗi kiểm tra vùng xãy ra.

Nếu trình biên dịch có chế độ Kiểm tra vùng (Range-Checking) được mở, thì có thể xãy ra các lỗi sau:

Lỗi 1. An array was accessed with an index outside its declared range: Có lệnh truy cập vào 1 vùng nằm ngoài khai báo 1 Array.

Lỗi 2. Trying to assign a value to a variable outside its range (for instance an enumerated type): Có lệnh gán giá trị vượt quá giới hạn giá trị của biến.

duma đề thi thử tỉnh tao

chữ đẹp quá :))

B1: nhập số tiền khác đã mua readln(t);
B2: nếu số tiền khách đã mua >150000 thì s:=t*((100-10)/100)

ngược lại thì s:=t*((100-5)/100);

B3: tiếp tục xét nếu số tiền khách đã mua>300000 thì s:=t*((100-15)/100);

b4: in kq ra màn hình