Xem hộ mình đúng chưa nhé! ^-^
Mới học pascal dc 2 tuần mò mãi mới viết được có thế này.
-----------------
program baitap;
uses wincrt;
var
a: array[1..100] of integer;
i,j,n,s,d,k:integer;
begin
write('nhap so cac so nguyen trong day n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
d:=0;s:=0;k:=0;
for i:=1 to n do
begin
for j:=2 to round(sqrt(a[i])) do
begin
d:=0;
if a[i] mod j = 0 then d:=d+1;
end;
begin
if d=0 then
begin
k:=k+1;
s:=s+a[i];
end;
end;
end;
writeln('tong cac so nguyen to trong day la ',s);
writeln('so cac so nguyen to trong day la ',k);
readln;
end.
Bookmarks