Có 2 cách khai báo mảng:

C1: Khai báo trực tiếp

VAR <Tên biến>:array[<chỉ số đầu>,<chỉ số cuối>] of <kiểu dữ liệu>;

VD:a:array[1..50] of string;

C2:Khai báo gián tiếp

Type <Tên biến>=array[<chỉ số đầu>,<chỉ số cuối>] of <kiểu dữ liệu>;

Var <Tên mảng>:<Tên biến>;

Dữ liệu kiểu mảng là một tập hợp hưu xhanj các phần tử có thứ tự, mọi phần tử đều có chung kiểu dữ liệu, gọi là kiểu dữ liệu phần tử.

Cảm ơn

*Ví dụ về hoạt động lặp với số lần biết trước:

1: Viết chương trình in ra màn hình 10 số từ 1 tới 10

2: Viết chương trình tìm min trong dãy số có 10 phần tử

*Ví dụ về hoạt động lặp với số lần chưa biết trước

1: Viết chương trình in ra màn hình 100 số bắt đầu từ số 5

2: Viết chương trình tìm max trong dãy số gồm n phần tử

nhìn sai sai

Cái này bạn phải hỏi các CTV ý!!!!!

Khi mà điểm GP của bạn đạt được 200 hay 300 thì bạn sẽ trở thành CTV

Lời giải :

Bài 1 :

program hotrotinhoc ;

var a : array[1..9999] of in teger ;

i,N,tong : integer ;

begin

write('Nhap gia tri cua cac phan tu');

write('Nhap do dai cua mang :'); readln(N);

for i:= 1 to N do

begin

write('a[',i,'])='); readln(a[i]);

end;

tong:=0;

for i:= 1 to N do

tong := tong + a[i] ;

write('Tong cac phan tu la :',tong);

readln

end.

Bài 2 :

program hotrotinhoc ;

var a : array[1..9999] of in teger ;

i,N,SLN : integer ;

begin

write('Nhap gia tri cua cac phan tu');

write('Nhap do dai cua mang :'); readln(N);

for i:= 1 to N do

begin

write('a[',i,'])='); readln(a[i]);

end;

SLN:= a[1] ;

if SLN < a[i] then write('Phan tu lon nhat la',SLN);

readln

end.

Câu 3 :

Đoạn khai báo : var a : array[1..15] of real ;

Chỉ số phần tử cuối thì cần viết cả chương trình thì mới có thể là nhập phần tử cuối là 100 bạn nhé.

mình nghĩ câu 3 là var a:array[86..100] of real; thì đúng hơn