Nhập từ bàn phím mảng số nguyên gồm n phần tử.

1. Tính trung bình cộng các số lẻ ở vị trí chẵn
2. Tìm số lớn nhất trong mảng vừa nhập
3. Tìm vị trí các số nhỏ nhất trong mảng
4. Đếm các số chính phương có trong mảng
5. Hiện thị các số nguyên tố có trong mảng lên màn hình
6. Thay thế các phần tử âm có trong mảng bằng giá trị 0
7. Xóa các phần tử âm có trong mảng
8. Sắp xếp mảng đã nhập theo thứ tự tăng dần
9.                                   Học tốt

program Tin_hoc;

uses crt;

var i,k:integer;

      tb:real

      a: array [1..10000] of integer;

begin

   clrscr;

   k:=0;tb:=0;

   write('Nhap do dai cua xau: ');readln(n);

   writeln('Nhap ',n,' phan tu cua xau:'):

   for i:= 1 to n do 

       begin

       readln(a[i]);

       if a[i] mod 2 = 0 then k:=k+1 else tb:=tb+a[i]

       end;

   tb:=tb/n 

   writeln('a) Trung binh cong cac so le la: ',tb:0:2);

   writeln('b) Co ',k,' so chia het cho 2 trong mang');

   readln;

end.