pascal 数组 用筛法求出100以肉的全部素数，并按每行五个数显示

Question

初学者，请老师多多指教

Answer 1

var a:array[1..100]of integer;n,m,i,get:longint;beginfor n:=1 to 100 do         begin        a[n]:=n;        end;        /////////////赋值1~100for m:=1 to 100 do beginfor n:=2 to 100 do begin                if (a[m]<>n) then                         begin                         if (a[m] mod n)=0 then a[m]:=0;                        end;                end;                end;///////////////////////////////////上面是找素数。get:=0;for i:=1 to 100 do         begin        if a[i]<>0 then                 begin                write(a[i],'  ');get:=get+1;                if get=5 then begin writeln; get:=0; end;                end;        end;end.还好记得。