Kiểm tra cũ Em viết cấu trúc câu lệnh khai báo biến mảng cho biết lợi ích việc sử dụng biến mảng? Ví dụ biến mảng: Ví dụ 2: Tiếp tục với ví dụ giả sử cần nhập điểm kiểm tra môn tin học lớp gồm 40 học sinh! Var Diem1, Diem2, Diem3, …, Diem40: Real; … Readln(Diem1); Readln(Diem2); … ; Readln(Diem40); Khi sử dụng biến mảng nhập liệu cho biến nào? Var Diem: array[1 40] of Real; … For i:= to 40 Readln(Diem[i]) ; Em viết câu lệnh: Nếu điểm Khi sử dụng8biếnlên in kiểm tra từ trở mảng hình “giỏi” cáchdụng báo câu lệnh sử khai biến thôngnào? thường ? IF Diem1 >= then writeln(‘ gioi ’) ; IF Diem2 >= then writeln(‘ gioi ’) ; …… IF Diem40 >= then writeln(‘ gioi ’) ; For i: =1 to 40 If Diem[i] >=8 then Writeln(‘ gioi ‘) ; Sử dụng biến mảng hiệu việc sử lý liệu Ví dụ 3: Viết chương trình nhập điểm kiểm tra mơn tốn, lý, văn sau tính điểm trung bình môn DiemToan … … … … Var DiemToan, DiemVan, DiemLi,6 DiemTB: array[1 40] of real; DiemVan … … … … … … … … … Diemtoan For i:= to 40 … … … 40 số DiemTB[i]:=(DiemToan[i]+DiemVan[i]+DiemLi[i])/3; Ta đọc giá trị, tính tốn giá trị gán giá trị cho biến mảng giống biến thơng thường 3 Tìm giá trị lớn nhỏ dãy số Bài toán: Viết chương trình nhập N số ngun từ bàn phím in hình số nhỏ số lớn Input:: Dãy số A gồm N số Output: Max, Min dãy số Hãy nêu ý tưởng tìm số lớn nhỏ dãy số * ý tưởng tìm max: - Đặt giá trị Max = a1 - Lần lượt cho i chạy từ đến N, so sánh giá trị với giá trị Max, > Max Max nhận giá trị * Đoạn chương trình Max:=A[1]; For i:=2 to N IF (A[i] > Max) Then Max:=A[i]; thuËt to¸n tìm max Số lớn Ha ha! Số nµy lín nhÊt MAX å! Sèra sè Tìm lớn Hi hi! Program vd1; Uses crt; Var i, n, Max, Min: integer ; A: Array[1 100] of Integer ; BEGIN END Clrscr; write(‘ Nhap so phan tu cua day so: n= ’) ; readln(n) ; For i := to n Begin write(‘ Nhap so thu ‘,i,’ : ‘) ; readln(A[i]) ; End; Max:=A[1]; For i := to n If A[i]>Max Then Max := A[i]; Writeln(‘ So lon nhat la max = ', Max) ; Min:=A[1]; For i := to n If A[i]