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, a

1

,a

2

, …, a

n

- B2: i 2, Min  a

1

, cs 1- B3: nếu i > n thì đưa ra Max và kết thúc- B4: nếu ai > Max, thì Max  a

i

, 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.