BÀI 4 ( 6,0 ĐIỂM). KHỞI ĐỘNG CHƯƠNG TRÌNH PASCAL, VIẾT CHƯƠNG TRÌNH NH...

1,5tg:= a[i]; a[i]:=a[j]; a[j]:= tg; End; Writeln('Mang sau khi da sap xep la'); For i:= 1 to n do Write(a[i]:6); 0,5 Writeln;dem:=0;Writeln('Nhung so nguyen to trong mang la');For i:=1 to n do If (a[i]>=2) and NT(a[i]) then Begin 0,5 Write(a[i]:7); dem:= dem+1; End; Writeln; Writeln('so phan tu la so nguyen to trong mang la:',dem) ;Readln;End.Ghi chú: Học sinh có thể không sử dụng chương trình con nhưng chạy đúng kết quả test vẫn cho điểm tối đa.Bộ Test thưN = 6;a[1]=3; a[2]=-12; a[3]=-789; a[4]=71; a[5]=8; a[6]=3456;Mang sau khi sap xep: -789 -12 3 8 71 3456Nhung so nguyen to trong mang 3 71 So phan tu la so nguyen to trong mang la: 2