viết phương trình tìm phần tử có giá trị nhỏ 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ị nhỏ nhất thì đưa ra phần tử lớn nhất
viết phương trình tìm phần tử có giá trị nhỏ 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ị nhỏ nhất thì đưa ra phần tử lớn 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 Hotrotinhoc;
var d,i,n,max,min: integer;
begin
write(n=’); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln(a[i]);
end;
max:=0; min:=32000;
for i:=1 to n do
if a[i]<min then min:=a[i];
for i:=1 to n do
if min=a[i] then inc(d);
if d>1 then
begin
for i:=1 to n do
if max<a[i] then a[i]:=max;
write(max);
end;
readln
end.