Chào các b n đã đ n v i ạ ế ớ bu i h c hôm nay ổ ọ Bài 9: Làm vi c ệ v i dãy s ớ ố Bài 9: Làm vi c ệ v i dãy s ớ ố  Ví d : ụ  Var diem_1, diem_2, diem_3, …: read;  …  Read (diem_1); read(diem_3);…  - V i i = 1 đ n 50: hãy nh p diem_i;ớ ế ậ  - V i i = 1 đ n 50: hãy so sánh Max v i ớ ế ớ diem_i   diem_1 diem_2 diem_3 … diem_K  M ngả  Chỉ  1 2 3 … k  Ví d 1 : cách khai báo đ n gi m m t bi n ụ ơ ả ộ ế m ng trong ngôn ng pascal nh sau : ả ữ ư  Var chieucao: array[1…50] of real;  Var tuoi: array[21…80] of integer;  T hai ví d trên, có th th y cách khai báo ừ ụ ể ấ m ng trong pascal nh sau:ả ư  Tên m ng: array [<ch s đ u >…<ch s ả ỉ ố ầ ỉ ố cu i>] of <ki u d li u> ố ể ữ ệ  Ví d 2.ti p t c v i ví d 1, thay vì ụ ế ụ ớ ụ khai báo các bi n diem_1, diem_2, ế diem_3,… đ l u đi m s c a các ể ư ể ố ủ h c sinh, ta khai báo bi n m ng ọ ế ả diem nh sau :ư  Var diem: array[1…50] of real; For i:= 1 to 50 do readln(diem[i]); có thể thay , chẳng hạn có thể viết :  Ta còn có th s d ng bi n m ng r t ể ử ụ ế ả ấ hi u qu nh :ệ ả ư  For i:=1 to 50 do  If diem[i]>8.0 then writeln(‘Gioi’);  Đi u này ti t ki m r t nhi u th i gian ề ế ệ ấ ề ờ và công s c vi t ch ng trìnhứ ế ươ  Ta có th khai báo nhi u bi n m ng :ể ề ế ả  Var DiemToan: array[1…50] of real;  Var DiemVan: array[1…50] of real;  Var DiemLi: array[1…50] of real;  Hay  Var DiemToan, diem van, diemli: array[1…50] of real; Khi đó ta có th đi m thi c a m t h c sinh c ể ể ủ ộ ọ ụ thể 8 6 7 6 …. …. …. …. 7 8 6 9 …. …. …. …. 9 7 8 7 …. …. …. …. 1 2 3 4 …. i …. 50 [...]... ta có thể gán giá trị cho các phần tử của mảng bằng câu lệnh gán :  A[1] := 5;  A[2] := 8;  Hoặc nhập dữ liệu từ bàn phím  For i:= 1 to 5 do readln(a[i]);  . nay ổ ọ Bài 9: Làm vi c ệ v i dãy s ớ ố Bài 9: Làm vi c ệ v i dãy s ớ ố  Ví d : ụ  Var diem_1, diem_2, diem_3, : read;  …  Read (diem_1); read(diem_3);…  - V i i = 1 đ n 5 0: hãy nh p. sau :  Var diem: array[1…50] of real; For i:= 1 to 50 do readln(diem[i]); có thể thay , chẳng hạn có thể viết :  Ta còn có th s d ng bi n m ng r t ể ử ụ ế ả ấ hi u qu nh : ả ư  For i:=1. pascal nh sau : ả ữ ư  Var chieucao: array[1…50] of real;  Var tuoi: array[21…80] of integer;  T hai ví d trên, có th th y cách khai báo ừ ụ ể ấ m ng trong pascal nh sau:ả ư  Tên m ng: array [<ch