2. Ví dụ về biến mảng: b.Truy cập mảng: - Bằng cách gọi tên biến mảng[chỉ số phần tử] A 5 25 273510 12 1 2 3 4 5 6 A[1] là phần tử thứ 1 A[4] là phần tử thứ 4 A[6] là phần tử thứ 6 c NhËp dữ liÖu kiÓu m¶ng: + Nhập dữ liệu từ bàn phím: VÝ dô 2: viÕt ch ¬ng trinh nhËp ®iÓm cho 40 ban häc sinh. Var Diem1, Diem2, Diem3, …, Diem40: Real; … Readln(Diem1); Readln(Diem2); … ; Readln(Diem40); Var Diem: array[1 40] of Real; … For i:= 1 to 40 do Readln(Diem[i]) ; VÝ dô 2: viÕt ch ¬ng trinh nhËp ®iÓm cho 40 ban häc sinh. + Gán giá trị cho phần tử mảng: Var Diem: array[1 40] of Real; … Diem[1]:=8; Diem [2]:=9; Diem[3]:=8; For i:= 4 to 40 do Readln(Diem[i]) ; IF Diem1 >= 8 then writeln(‘ gioi ’) ; IF Diem2 >= 8 then writeln(‘ gioi ’) ; ………………………………………. IF Diem40 >= 8 then writeln(‘ gioi ’) ; For i: =1 to 40 do If Diem[i] >=8 then Writeln(‘ gioi ‘) ; d. xö lÝ vµ so s¸nh c¸c phÇn tö trong m¶ng: VÝ dô 3: từ ví dụ 2 viết câu lệnh đưa ra những bạn học “giỏi” nếu điểm kiểm tra từ 8 trở lên bằng khai báo biến thông thường. Ta có thể nhập vào các giá trị, tính toán giá trị , so sánh và gán giá trị cho biến mảng t ¬ng tù biến thông thường. - Sử dụng biến mảng và câu lệnh lặp giúp cho việc viết chương trình được ngắn gọn và dễ dàng hơn. 3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số Bài toán: Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lớn nhất. Input:: Dãy số A gồm N số nguyên Output: Max, Min của dãy số Hãy nêu ý tưởng tìm số lớn nhất và nhỏ nhất của dãy số * ý t ởng tìm max: - Đặt giá trị Max = a[1]. - Lần l ợt cho i chạy từ 2 đến N, so sánh giá trị a[i] với giá trị Max, nếu a[i] > Max thì Max nhận giá trị mới là a[i]. *ý t ởng tìm min: - Đặt giá trị Min = a[1]. - Lần l ợt cho i chạy từ 2 đến N, so sánh giá trị a[i] với giá trị Min, nếu a[i] < Min thì Min nhận giá trị mới là a[i]. Program vd1; Uses crt; Var i, n, Max, Min: integer ; A: Array[1 100] of Integer ; BEGIN Clrscr; write(‘ Nhap so phan tu cua day so: n= ’) ; readln(n) ; For i := 1 to n do Begin write(‘ Nhap so thu ‘,i,’ : ‘) ; readln(A[i]) ; End; Max:=A[1]; For i := 2 to n do If A[i]>Max Then Max := A[i]; Writeln(‘ So lon nhat la max = ', Max) ; Min:=A[1]; For i := 2 to n do If A[i]<Min Then Min := A[i]; Writeln(‘ So nho nhat la Min = ', Min) ; Readln ; END. Khai b ¸o biÕn m¶ng NhËp vµo biÕn m¶ng T×m sè lín nhÊt vµ sè nhá nhÊt [...]... ngưtrìnhưchạyưvàưchoưkếtưquảưnhưsau: ơ ư Nhap so phan tu cua day so: n= 7 Nhap so thu 1 : 7 Nhap so thu 2 : 9 Nhap so thu 3 : 4 Nhap so thu 4 : 6 Nhap so thu 5 : 9 Nhap so thu 6 : 8 Nhap so thu 7 : 5 So lon nhat la Max = 9 So nho nhat la Min = 4 h Ghi nhớ! Dữ liệu kiểu mảng là một tập hợp hữu hạn các phần tử đợc xắp xếp theo dãy và mọi phần tử đều có cùng một kiểu dữ liệu Việc gán giá trị, đọc giá trị và tính toán với các giá trị . 7 Nhap so thu 1 : 7 Nhap so thu 2 : 9 Nhap so thu 3 : 4 Nhap so thu 4 : 6 Nhap so thu 5 : 9 Nhap so thu 6 : 8 Nhap so thu 7 : 5 So lon nhat la Max = 9 So nho nhat la Min = 4 Ch¬ngtr×nhch¹yvµchokÕtqu¶nhsau: . Writeln(‘ So nho nhat la Min = ', Min) ; Readln ; END. Khai b ¸o biÕn m¶ng NhËp vµo biÕn m¶ng T×m sè lín nhÊt vµ sè nhá nhÊt h Nhap so phan tu cua day so: n= 7 Nhap so thu 1 : 7 Nhap so thu. cua day so: n= ’) ; readln(n) ; For i := 1 to n do Begin write(‘ Nhap so thu ‘,i,’ : ‘) ; readln(A[i]) ; End; Max:=A[1]; For i := 2 to n do If A[i]>Max Then Max := A[i]; Writeln(‘ So