nhập mảng a gồm N phần tử A1,A2,...,An. các phần tử nhập vào theo chiều tăng dần .in ra mảng theo chiều giảm dần
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.


BV
23 tháng 2 2021
Thông tin là tất cả những gì con người thu nhận từ thế giới xung quanh hay về chính mình
N
0

NT
8

T
3

24 tháng 2 2021
Gõ:
Towf giaays,chos suar nha bạn
Chúc bạn học tốt nha❤❤❤
TM
8

14 tháng 5 2021
Nhân vật , cách chơi and lệnh để nhân vật trong trò chơi làm theo như là 1 con rối

19 tháng 5 2021
I. Nội qui tham gia "Giúp tôi giải toán"
1. Không đưa câu hỏi linh tinh lên diễn đàn, chỉ đưa các bài mà mình không giải được hoặc các câu hỏi hay lên diễn đàn;
2. Không trả lời linh tinh, không phù hợp với nội dung câu hỏi trên diễn đàn.
3. Không "Đúng" vào các câu trả lời linh tinh nhằm gian lận điểm hỏi đáp.
Các bạn vi phạm 3 điều trên sẽ bị giáo viên của Online Math trừ hết điểm hỏi đáp, có thể bị khóa tài khoản hoặc bị cấm vĩnh viễn không đăng nhập vào trang web.

Program Day_So_Giam_Dan;
Uses Crt;
Var s,n,i,j,t:integer;
a:array[1..20] of integer;
Begin
Clrscr;
Writeln(‘SAP XEP DAY SO:’);
Write(‘Nhap so phan tu cua day 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 t:=a[i]; a[i]:=a[j]; a[j]:=t; End;
Writeln(' Day sau khi sap xep giam dan la:');
For i:=1 to n do Write(a[i]:4); Readln;
s:=0; For i:=1 to n do s:=s+a[i];
Writeln('Gia tri trung binh la: ',s/n:6:2);
Readln;
End.