Bài 8. Lặp với số lần chưa biết trước

H24

1/Viết chương trình nhập vào một mảng số nguyên sắp xếp lại mảng đó theo thứ tự giảm dần

2/ Viết chương trình cho phép nhập vào 1 mảng gồm N phần tử, cho biết số nhỏ nhất trong các số vừa nhập là số thứ mấy

giúp em với ak

NT
18 tháng 3 2021 lúc 23:30

Bài 1: 

uses crt;

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

i,n,tam,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Bình luận (0)
H24
19 tháng 3 2021 lúc 0:35

Làm giúp em câu 2 với ạ

Bình luận (0)

Các câu hỏi tương tự
JB
Xem chi tiết
NO
Xem chi tiết
H24
Xem chi tiết
HP
Xem chi tiết
NT
Xem chi tiết
MT
Xem chi tiết
PT
Xem chi tiết
TT
Xem chi tiết
NT
Xem chi tiết