Câu 1: a) 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 theo thứ tự tăng dần và in kết quả ra màn hình. b) ....giảm dần.... Câu 2: Viết Chương Trình nhập 1 mảng n số nguyên và tính trung bình cộng. Nhập n từ bàn phím Câu 3: Viết Chương Trình nhập 1 mảng n số nguyên. In ra màn hình các phần tử có giá trị là số chẳng trên cùng 1 dòng và số lẻ trên cùng 1 dòng khác. Tình Trung bình cộng các số lẻ

Câu 1:

a)

program ct;

ues crt;

var A:array [1..1000] of integer;

      i,j,n,tg:integer;

begin clrscr;

   write('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap so thu ',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

           tg:=A[i];

           A[i]:=A[j];

           A[j]:=tg;

        end;

   writeln('Day so sap xep theo thu tu tang dan la: ');

   for i:=1 to n do

     write(A[i]:3);

readln;

end.

b)

program ct;

ues crt;

var A:array [1..1000] of integer;

      i,j,n,tg:integer;

begin clrscr;

   write('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap so thu ',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

           tg:=A[i];

           A[i]:=A[j];

           A[j]:=tg;

        end;

   writeln('Day so sap xep theo thu tu giam dan la: ');

   for i:=1 to n do

     write(A[i]:3);

readln;

end.

Câu 2:

program ct;

ues crt;

var A:array [1..1000] of integer;

      i,n:integer;

      Tbc:real;

begin clrscr;

   write('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap so thu ',i,': '); readln(A[i]);

     end;

     Tbc:=0;

   for i:=1 to n do

     Tbc:=(Tbc+A[i])/n;

   writeln('Trung binh cong la: ',Tbc);

readln;

end.

Câu 3:

program ct;

ues crt;

var A:array [1..1000] of integer;

      i,n:integer;

begin clrscr;

   write('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap so thu ',i,': '); readln(A[i]);

     end;

   for i:=1 to n do

     if i mod 2=0 then write(A[i]);

   writeln;

   for i:=1 to n do

     if i mod 2<>0 then write(A[i]);

readln;

end.

Học tốt!