TÌM GIÁ TRỊ LỚN NHẤT VÀ NHỎ NHẤT CỦAHOẠT ĐỘNG

1. Tìm giá trị lớn nhất và nhỏ nhất củaHoạt động: Tìm giá trị lớn nhất và nhỏ nhấtcủa dãy số: (32’)dãy số:a. Bài toán tìm Max của dãy số:Gv: Quay lại ví dụ 6 của bài 5. Phân tích lạiProgram Max;Uses crt;thuật toán và cùng học sinh viết chương trìnhcho bài toán.Var i, n, Max: integer; A: array[1..100] of integer;Hs: Xem lại ví dụ 6 bài 5. Cùng giáo viên viếtBeginchương trình cho bài toán.Gv: Yêu cầu học sinh sửa chương trình vừa Clrscr;viết để thành bài toán tìm Min của dãy số Write('Hay nhap do dai cua day so, = ');Hs: Thực hiện sửa chương trình. readln(n); Writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do Begin Write('a[',i,']='); readln(a[i]); End; Max:=a[1]; For i:=2 to n do if Max<a[i] then Max:=a[i]; Writeln('So lon nhat la Max = ',Max); Readln;End.b. Bài toán tìm giá trị lớn nhất và nhỏ nhấtb. Bài toán tìm giá trị lớn nhất và nhỏnhất của dãy số:của dãy số:Program MaxMin;Var i, n, Max, Min: integer;Gv: Yêu cầu học sinh kết hợp cả 2 chươngtrình trên để có chương trình giải quyết bàitoán Tìm giá trị lớn nhất và nhỏ nhất củadãy số. (Nếu còn thời gian)Hs: Thực hiện yêu cầu của giáo viên. Max:=a[1]; Min:=a[1]; Begin if Max<a[i] then Max:=a[i]; if Min>a[i] then Min:=a[i] End; Writeln('So nho nhat la Min = ',Min);