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
1 câu trả lời
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
