Mình cũng có một bài tính tổng số nguyên tố. Không có đếm!
program Beo;
uses crt;
var K, B,n,i:integer;
a:array[1..100] of integer;
Begin
clrscr;
write('Nhap so cac so nguyen trong mang: '); readln(n);
writeln('nhap cac so nguyen to vao mang:' );
for i:=1 to n do Begin
write('so thu ',i,' la: '); readln(a[i]);
end;
B:=0;
for i:=1 to n do
begin
K:=2;
while (a[i] mod K<>0) do K:=K+1;
if K = a[i] then B:=B+a[i];
end;
writeln('Tong cac so nguyen to trong mang la: ',B);
readln
end.
Bookmarks