Pascal 8

[Lê Thảo Vy]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

BT:Viết chương trình nhập dãy n số nguyên. Hoán đổi phần tử lớn nhất và nhỏ nhất trong dãy vừa nhập và in ra sau khi đã hoán đổi.
Giúp em gấp đi ạ ngày mai em kiểm tra rồi !!!
Cảm ơn mn trc ạ !

 

[La Hồng Vỹ]

max:=a[1];
min:=a[1];
for i:=2 to n do
begin
if a[ i ]>max then vtmax:=i;
if a[ i ]<min then vtmin:=i;
end;
tam:=a[vtmax];
a[vtmax]:=min;
a[vtmin]:=tam;

rồi xong xuất ra

Code không chính xác . Mod đã sửa

Thân