Mn Giúp Với ạ Mai Thi Rồi

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

• • Đăng nhập
  • |
  • Đăng ký
  

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

+

Lưu vào

• +

  Danh mục mới

Lưu

• huyentrang365
• Chưa có nhóm

• Trả lời

  5

• Điểm

  82

• Cảm ơn

  3

• Tin Học
• Lớp 11
• 10 điểm
• huyentrang365 - 10:37:53 14/04/2022

Mn giúp với ạ mai thi rồi

• Hỏi chi tiết
• Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

huyentrang365 rất mong câu trả lời từ bạn. Viết trả lời

TRẢ LỜI

• trumtinhoc
• Chưa có nhóm

• Trả lời

  1986

• Điểm

  472

• Cảm ơn

  1609

• trumtinhoc

• Câu trả lời hay nhất!
• 14/04/2022

uses crt;

var a: array[1..100] of integer;

i,j,n,t: integer;

procedure nhap;

begin

write ('nhap n: '); readln (n);

writeln ('nhap gia tri cho mang: ');

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

end;

procedure sapxep;

begin

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]<a[j] then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

end;

begin

clrscr;

nhap;

sapxep;

readln;

end.

$#Trumtinhoc$

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy

• Cảm ơn 1
• Báo vi phạm

• 
  • huyentrang365
  • Chưa có nhóm
  • Trả lời

    5

  • Điểm

    82

  • Cảm ơn

    3

  Cái này là không giảm mà

• 
  • trumtinhoc
  • Chưa có nhóm
  • Trả lời

    1986

  • Điểm

    472

  • Cảm ơn

    1609

  à nhầm

• 
  • trumtinhoc
  • Chưa có nhóm
  • Trả lời

    1986

  • Điểm

    472

  • Cảm ơn

    1609

  if a[i]>a[j] then

• 
  • trumtinhoc
  • Chưa có nhóm
  • Trả lời

    1986

  • Điểm

    472

  • Cảm ơn

    1609

  và bổ sung xuất nữa nha

• 
  • trumtinhoc
  • Chưa có nhóm
  • Trả lời

    1986

  • Điểm

    472

  • Cảm ơn

    1609

  procedure sapxep; begin for i:=1 to n-1 do for j:=i+1 to n do if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; for i:=1 to n do write (a[i]:4); end;

• 
  • trumtinhoc
  • Chưa có nhóm
  • Trả lời

    1986

  • Điểm

    472

  • Cảm ơn

    1609

  nhầm

• 
  • trumtinhoc
  • Chưa có nhóm
  • Trả lời

    1986

  • Điểm

    472

  • Cảm ơn

    1609

  procedure sapxep; begin for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; for i:=1 to n do write (a[i]:4); end;

Đăng nhập để hỏi chi tiếtXEM LỜI GIẢI SGK TIN 11 - TẠI ĐÂY

Bạn muốn hỏi điều gì?

Đặt câu hỏi

Group 2K9 Ôn Thi ĐGNL & ĐGTD Miễn Phí

Cho một mảng số nguyên A gồm N phần tử (N