uses crt;

var a:array[1..10000]of longint; s:qword;i,n:longint;

function NT(b:longint):boolean;

var dem,i:longint;

begin

dem:=0;

for i:=1 to b div 2 do if(b mod i=0)then inc(dem);

NT:=dem=2;

end;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do 

begin

write('nhap a[',i,']=');readln(a[i]);

if(NT(a[i]))then s:=s+a[i];

end;

write(s);

readln;

end.

bạn tham khảo ạ!!

uses crt;

var n,i,s,x:integer;

a:array[1..100] of integer;

begin

clrscr;

write('nhap n '); readln(n);

for i:=1 to n do begin

write('nhap so'); readln(a[i]); end;

for i:=1 to n do

if a[i]>1 then begin

x:=2;

while a[i] mod x<>0 do x:=x+1;

if a[i]=x then s:=s+a[i];

end;

write('tong cac so nguyen to trong mang ',s);

readln

end.