câu 1: viết chương trinh nhập vào n số thực từ bàn phím in ra sô trung bình cộng câu 2: viết chương trình nhập vào n sô nguyên in ra dãy sắp xếp theo

C1:
Uses Crt;
Var a:array[1..1000] of integer;
 i,s,n:integer; tbc:real;
Begin
Write(‘Nhap ptu n vao: ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘Nhap a[‘,i,’]= ‘); Readln(a[i]);
End;
s:=0;
Write(‘Trung binh cong cua day so do la: ‘);
For i:=1 to n do S:=S+a[i];
Write(s/n:4:2);
Readln
End.
C2:
Uses Crt;
Var a:array[1..500] of integer;
i,n,j,t,max,td:longint;
Begin
Clrscr;
Write(‘Nhap so ptu n vao: ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘Nhap 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 so sau khi sap xep tang dan la:’);
For i:=1 to n do
Write(a[i]:4);
max:=a[1];
For i:=2 to n do
If max<a[i] then max:=a[i];
Writeln;
Write(‘So lon nhat trong day do la: ‘,max);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Thanks so much 😀
*p/s: Hỏi và đáp,comment bên dưới!