Viết chương trình tìm phần tử có giá trị lớn nhất của mảng và đưa ra màn hình chỉ số và giá trị của phần tử tìm được. Nếu có nhiều phần tử có cùng giá trị lớn nhất thì đưa ra phần tử có chỉ số nhỏ nhất ĐẦU TIÊN
Viết chương trình tìm phần tử có giá trị lớn nhất của mảng và đưa ra màn hình chỉ số và giá trị của phần tử tìm được. Nếu có nhiều phần tử có cùng giá trị lớn nhất thì đưa ra phần tử có chỉ số nhỏ nhất ĐẦU TIÊN
uses crt;
var a,i:integer;
A:array [1..100] of integer;
begin
clrscr;
write(‘Nhap n= ‘); readln(n);
for i:=1 to n do
begin
write(‘Phan tu thu ‘,i,’=’);
readln (A[i]);
end;
max :=A[i]; max=1;
for i:=2 to n do
if A[i]>max then
begin
max=A[i]
end;
writeln(‘Gia tri max = ‘,max:2:2);
readln;
end.