Viết chương trình tìm phần tử có giá trị nhỏ nhất của mảng và đưa rmàng hình chi 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ì đua ra phần tử lớn nhất. Giúp em giải với ạ Em cảm ơn nhiều!

totuananhboly

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 35 xem

1 trả lời

Thích Trả lời

vokhacdiuy

program Tin_hoc;

uses crt;

var i,n,k,min,max,d:integer;

a: array [1..1000000] of integer;

begin

clrscr;

write('Nhap do dai cua mang: ');readln(n);

writeln('Nhap ',n,' phan tu cua mang:');

for i:= 1 to n do readln(a[i]);

min:=a[1];

for i:= 2 to n do if a[i]<min then begin min:=a[i];k:=i end;

d:=0;

for i:= 1 to n do if a[i] = min then inc(d);

if d<> 1 then

begin

max:=a[1]; k:=1;

for i:= 1 to n do if max<a[i] then begin max:=a[i];k:=i end;

writeln('Phan tu lon nhat cua mang la ',max,' o vi tri thu ',k)

end;

if d=1 then writeln('Phan tu nho nhat cua mang la ',min,' o vi tri thu ',k);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

kieukhanhlinh

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Làm giúp em bài này phần d vs ạ

Giúp em câu 2 về câu 3 nhé văn bản Vượt thác

Tính diện tích phần tô đậm của hình sau: Chỉ mình câu 4 với ạ

*Mọi ng giúp mk ạ , sẽ cảm ơn +5sao nh Cho hình thang cân MNPQ (MN//PQ;MN <PQ) NP=15cm ; đường cao NI=12cm; QI=16cm => Tính IP, MN

Chuyên gia nhatduong, nguyentransondhy, ..... giúp em giải với.

Bài 7 câu c Mong mọi người chỉ em ạ Em xin cảm ơn rất nhiều

III. Fill in each blank with the correct form of the word in brackets. 1.A masquerade is a gathering of people wearing masks, (festival) 2.We went out for a dinner at a nearby beach restaurant, (celebrate) 3. in a lion dance outfit show off their moves at the Rio Carnival, (perform) 4.The Rio Carnival Samba are known as the greatest show on Earth! (parade) 5.A music festival includes live of singing and musical instrumentplaying, (perform) 6.Hue Festival is a event that is held every two years, (culture) 7.New Year’s Eve is one of the largest global because it marks the lastday of the year, (celebrate) 8.The Saint Patrick’s Day marchers were up Fifth Avenue, (parade)

tỉ khối của hỗn hợp gồm metan và oxi đối với hidro là 40:3 khi bật tia lửa điện để đốt hoàn toàn hỗn hợp trên hỗn hợp khí và hơi thu được là? A.Co2, H2o B. CH4, co2, h20 C. O2, H20, co2 D. H2, co2,h20

làm hết giúp mk bài 7 mk sẽ vote 5 sao cảm ơn mn

giúp mk bài 9 vs con ng việt oi huhu

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến