Môn Tin Học Lớp 11 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
Question
Môn Tin Học Lớp 11 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 Giúp em bài này với ạ em cần gấp, đừng copy nguồn trên mạng nha. Em xin cảm ơn thầy cô và các bạn nhiều.
in progress
0
Tổng hợp
2 tháng
2022-03-29T04:10:44+00:00
2022-03-29T04:10:44+00:00 2 Answers
0 views
0
Trả lời ( )
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.