Câu 1:
*Câu lệnh lặp For do
- Cú pháp:
+ Dạng tiến: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
+ Dạng lùi: for <biến đếm>:=<giá trị đầu> downto <giá trị cuối> do <câu lệnh>;
- Cách thực hiện:
+ Biến điếm sẽ nhân giá trị bằng giá trị đầu
+ Sau mỗi vòng lặp, biến đếm tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì kết thúc lệnh lặp
Câu 1:
*Câu lệnh While do
- Cú pháp:
while <điều kiện> do <câu lệnh>;
- Cách thực hiện:
+ Kiểm tra điều kiện
+ Nếu điều kiện đúng sẽ thực hiện câu lệnh và quay lại kiểm tra điều kiện
+ Nếu điều kiện sai sẽ bị bỏ qua và kết thúc lệnh lặp
Câu 2:
Var <biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;
Câu 3:
a) Sai ở chỗ trước do có ;
b) Sai ở chỗ i:=1
c) Sai ở chỗ ...
Câu 3:
d) Đúng
e) Sai ở chỗ (1..7)
f) Sai ở chỗ [100..l]
Câu 4:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
