1.Viết chương trình nhập vào 1 dãy số nguyên, tính tổng các số nguyên tố trong mảng.
2.Nhập vào một dãy số có n phần tử, sắp xếp dãy đó theo thứ tự tăng dần.
1.Viết chương trình nhập vào 1 dãy số nguyên, tính tổng các số nguyên tố trong mảng.
2.Nhập vào một dãy số có n phần tử, sắp xếp dãy đó theo thứ tự tăng dần.
var n,i:longint;
A:array[1..100] og longint;
function nt(n:longint):boolean;
var i:longint;
begin
nt:=false;
if n<2 then exit;
for i:=2 to n div 2 do
if n mod i=0 then exit;
nt:=true;
end;
begin
readln(n);
for i:=1 to n do read(a[i]);readln;
for i:=1 to n do
if nt(a[i]) then write(a[i],’ ‘);
readln
end.
bài 2:
var n,i,tam:longint;
a:array[1..100] of longint;
begin
readln(n);
for i:=1 to n do read(a[i]);readln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do write(a[i],’ ‘);
readln
end.
Câu 1:
uses crt;
var a:array[1..10000] of integer;
n,i,s,j:integer;
check:boolean;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(a[i]);
end;
if a[i]<2 then exit;
if a[i]=2 then inc(s,a[i]);
for i:=1 to n do
begin
j:=2;
while (a[i] mod j<>0) and (j<sqrt(a[i])) do inc(j);
if j>sqrt(a[i]) then check:=true
else check:=false;
if check then inc(s,a[i]);
end;
write(‘Tong cac so nguyen to: ‘,s);
readln;
end.
Câu 2:
uses crt;
var a:array[1..10000] of integer;
n,i,j,t:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write(‘Day so tang dan: ‘);
for i:=1 to n do write(a[i],’ ‘);
readln;
end.