Viết chương trình nhập vào một dãy số nguyên có N phần tử.Sắp xếp dãy số theo thư stujw giảm dần & tính giá trị trung bình của dãy.
Viết chương trình nhập vào một dãy số nguyên có N phần tử.Sắp xếp dãy số theo thư stujw giảm dần & tính giá trị trung bình của dãy.
program ct;
uses crt;
var i,n,s,j,tam:integer; tbc:real;
A:array[1..100[ of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang 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;
writeln;
write(‘day so sau khi sap xep la:’);
for i:=1 to n do
write(A[i]:3);
s:=0;
for i:=1 to n do
begin
s:=s+A[i];
tbc:=s/n;
end;
writeln(‘trung binh cong la:’,tbc:10;2)
readln
end.