7.
Cú pháp: While <điều kiện> do <câu lệnh>;
Hoạt động:
- B1: Kiểm tra điều kiện.
- B2: Nếu điều kiện đúng thì thực hiện câu lệnh.
Nếu điều kiện sai thì kết thúc vòng lặp.
- B3: Thông báo kết quả và kết thúc chương trình.
8.
Cú pháp: Var <tên mảng>: array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;
Giải thích:
- Tên mảng: Tuân theo quy tắc đặt tên.
- Chỉ số đầu, chỉ số cuối: Là số tự nhiên dương. Chỉ số cuối lớn hơn chỉ số đầu.
- Kiểu dữ liệu: Các kiểu dữ liệu có trong pascal.
9.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n, tb: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
tb:=0;
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
tb:=tb+A[i];
end;
write('Gia tri trung binh cua mang: ', tb/n:3:2);
readln
end.
