1. Cú pháp: var <tên biến mảng> : array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;
a) Giải thích:
+<tên biến mảng> tên mảng. VD: a,mang,...
+<chỉ số đầu> là số nguyên cho biết chỉ số bắt đầu trong phạm vi của mảng.
+<chỉ số cuối> là số nguyên lớn hơn hoặc bằng chỉ số đầu cho biết chỉ số kết thúc trong phạm vi của mảng.
+<kiểu dữ liệu> Là kiểu giá trị của các phân tử. VD: char(kí tự), integer(số nguyên),...
b) Vd:
+ var a:array[1..1000000]of longint;
+ mang:array[1..1000000]of char;
...
Bài 2:
uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 50 do s:=s+i;
writeln('Tong cac so tu 1 den 50: ',s);
readln
end.