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.
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.
var n,i,cs,max:longint;
a: array [1..100] of longint;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
write(‘A[‘,i,’] = ‘); read(a[i]);
writeln;
for i:=n downto 1 do
if a[i]>=max then
begin
max := a[i];
cs:=i;
end;
write(‘Phan tu lon nhat la: ‘,a[cs],’ vi tri la: ‘,cs);
readln;
end.
Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
n,i,max: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
End;
max:=A[1];
For i:=1 to n do
If A[i]>max then max:=A[i];
Writeln(‘GTLN: ‘,max);
For i:=1 to n do
Begin
If A[i]=max then
Begin
Write(‘Vi tri: ‘,i);
Break;
End;
End;
Readln
End.