TÌM PHẦN TỬ CÓ GIÁ TRỊ NHỎ NHẤT CỦA MẢNG.INPUT A = 1 -4 ..
5.
Tìm phần tử có giá trị nhỏ nhất của mảng.
Input A = 1 -4 5 6 -7Output Min = -7, vt = 5 Xác định bài toán:- Input: mảng a- Output: Phần tử có giá trị nhỏ nhất trong mảng và vị trí của nó Thuật toán:- B1Nhập n, a1
,a2
, …, an
- B2: i 2, Min a1
, cs 1- B3: nếu i > n thì đưa ra Max và kết thúc- B4: nếu ai > Max, thì Max ai
, cs i-
B5: i i + 1, quay lại bước 3. Chương trình: program timmax;uses crt;var n,i,cs:byte; a:array[1..15] of integer; Min:integer;beginclrscr; write('nhap so luong phan tu: '); readln(n); for i:=1 to n do begin write('nhap phan tu a[',i,'] = '); readln(a[i]); end; Min := a[i]; cs i; for i:=2 to n do if a[i] < Min then begin Min:=a[i];cs:= i; end; writeln(' phan tu nho nhat trong mang la: ',Min,’ o vi tri ‘,i);readlnend.