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

0 bình luận về “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”

1. 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!

   Bình luận