giúp mình vs
viết chương trình nhập vào từ bàn phím mảng A gồm n phần tử n<=100 mà phần tử không quá 300. a/tính tổng các phần tử âm
b/ đếm trong mảng A có bao nhiêu phần tử dương
c/ tính tổng các phần tử chẵn trong dãy
d/ tính tổng các số nguyên tố trong dãy
var A: array[1..100] of integer;
n, index: byte;
tmp: integer;
countD: byte;
function isPrime(number: integer): boolean;
var index: integer;
begin
if number < 2 then isPrime := false else if number = 2 then isPrime := true else if number mod 2 = 0 then isPrime := false else begin isPrime := true; for index := 3 to int(sqrt(number)) do if number mod index = 0 then begin isPrime := false; break; end; end; end; begin writeln('Nhap so n'); readln(n); index := 1; while index