có thì có, nhưng tùy vào mục đích sử dụng, ví dụ: nhập số điểm của học sinh toàn trường (trường mình lấy là gần 300 học sinh-nói vậy để bạn hiểu là không chỉ có từ 1 tới 100 mà còn nhiều hơn thế), tính điểm trung bình của học sinh toàn trường,....

tuy vậy nhưng để tính toán được cũng cần dựa vào vùng dữ liệu mà các kiểu dữ liệu có thể chứa được, số liệu ở hình bên dưới, bạn có thể tham khảo.

lưu ý: biến đếm, giá trị đầu, giá trị cuối của lệnh lặp for...to...do là biến kiểu nguyên (thường là dùng integer, vì dùng biến kiểu integer cũng đã đủ để lưu giữ giá trị cho biến đếm rồi )

* chương trình cho ví dụ trên:

uses crt;

var n,i: integer;

s: real;

a: array [1..1000] of real;

begin

clrscr;

write('nhap so hoc sinh toan truong: '); readln(n);

for i:=1 to n do

begin

write('nhap diem hoc sinh thu ',i,': '); readln(a[i]);

s:=s+a[i];

end;

write('trung binh diem cua hoc sinh toan truong la: ',s/n:3:1);

readln;

end.

uses crt;

var a : integer;

begin

clrscr;

for a := 1 to 100 do writeln('Loop');

readln

end.

⇒ Thay xâu 'Loop' thành câu cần lặp

⇒ Số lần lặp = 100 - 1 + 1 = 100 lần