파스칼의 배열에서 소수를 계산하십시오.

Question

PAscal에 문제가 있습니다. 나는 소수하지만 결과를 계산하려면 : 내 코드입니다 : 내가 3 싶어하지만 난이 얻을이 배열에 대한

Program arrayToFunction; 
const 
size = 5; 
type 
    a = array [1..size] of integer; 
var 
aNumbers: a = (1, 7, 3, 4, 5); 
iCountNumbers: integer; 
function countPrimeNumbers(var arr: a) : integer; 
    var 
    i :0..size; 
    sum,j,count: integer; 
    begin 
    sum := 0;count:=0; 
    for i := 0 to size do 
    begin 
     for j := 2 to arr[i] do 
      begin 
       if(arr[i] mod j = 0) then sum:=1; 
      end; 
     if(sum=0) then count:=count+1; 

    end; 
countPrimeNumbers := count; 
end; 
begin 
iCountNumbers := countPrimeNumbers(aNumbers) ;*) 
    writeln('Numbers: ', iCountNumbers); 
    readln; 
end. 

... 내 문제가 어디 있는지 이해가 안 돼요. 도와주세요

Answer 1

type a = array [1..size] of integer;을 가졌지 만 for i := 0 to size을 사용하여 배열을 반복합니다. 아래 첨자는 선언 된 범위와 일치해야합니다.

루프를 입력하기 전에 sum := 0;을 설정했지만 다시 0으로 설정하지 마십시오. 비소임을 찾으면 sum := 1;을 설정하고 그대로 유지합니다. 비 (非) 소수를 발견하면 절대로 전성기를 발견하지 못합니다.

두 개의 소수는 arr[0]에 있으며, 1은 arr[1]입니다. 은 소수가 아니지만 코드는 결론을 내릴 것입니다. 은 소수이지만, 결국 코드 자체가 나눌 수 있음을 알게되므로 코드는 그렇지 않다고 생각할 것입니다.