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.
2 câu trả lời
program bai_giai;
uses crt;
var A:array[1..1000] of integer;
n,i,j,t,tg:integer;
begin
clrscr;
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
t:=t+A[i];
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]<A[j] then
begin
tg:=A[i]; A[i]:=A[j]; A[j]:=tg;
end;
write('Day giam dan: ');
for i:=1 to n do write(A[i],' ');
writeln;
write('Gia tri trung binh cua day: ',t/n:0:2);
readln;
end.
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.