TÌM PHẦN TỬ CÓ GIÁ TRỊ LỚP NHẤT CỦA MẢNG.INPUT A = 1 -4 5...

4.

Tìm phần tử có giá trị lớp nhất của mảng.

Input A = 1 -4 5 6 -7Output Max = 6, vt = 4 Xác định bài toán:- Input: mảng a- Output: phần tử có giá trị lớn 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, Max  a

1

, cs  1

-

B3: nếu i > n thì đưa ra Max, cs 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; Max: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; Max := a[i]; cs:=i; for i:=2 to n do if a[i] > Max then begin Max:=a[i];cs:=i; end; writeln(' phan tu lon nhat trong mang la: ',Max , ‘o vi tri ‘,i);readlnend.