Bài toán:

Nhập vào một mảng n các số nguyên a[i].

a) Tìm các phần tử a[i] vừa nhập là các số có tổng các chữ số là nguyên tố.

b) Xếp lại mảng đó theo thứ tự giảm dần.

c) Nhập vào một số nguyên từ bàn phím. Chèn số đó vào mảng sao cho mảng vẫn có thứ tự giảm dần. (không được xếp lại mảng).

Phần khai báovà nhập mảng:

uses crt;
var a: array[1..10000] of integer;
n, i, j, n2,t: integer;
t,d:integer;
ok: boolean;
begin
clrscr;
readln(n);
for i := 1 to n do
read(a[i]);

Phần a:

for i := 1 to n do
begin
s :=0;
t:=a[i];
while t<>0 do
begin
d:=t mod 10;
s:=s+d;
t :=t div 10;
end;
ok:=true;
if s<2 then
ok := false
else
for j := 2 to s div 2 do
if s mod j=0 then
begin
ok:= false;
break;
end;
if ok then
write(a[i], ' ');
end;
writeln;

Phần b)

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;
for i:= 1 to n do
write(a[i], ' ');
writeln;

Phần c

readln(n2);
i := 1;
while (i<=n) and (a[i]>n2) do
inc(i);
for j := n downto i do
a[j+1]:=a[j];
a[i] :=n2;
inc(n);
for  := 1 to n do
write(a[i], ' ');
writeln;

 Phần in kết quả

readln;
end.

Code hoàn chỉnh:

uses crt;
var a: array[1..10000] of integer;
n, i, j, n2,t: integer;
s,d:integer;
ok: boolean;
begin
clrscr;
readln(n);
for i := 1 to n do
read(a[i]);
for i := 1 to n do
begin
s :=0;
t:=a[i];
while t<>0 do
begin
d:=t mod 10;
s:=s+d;
t :=t div 10;
end;
ok:=true;
if s<2 then
ok := false
else
for j := 2 to s div 2 do
if s mod j=0 then
begin
ok:= false;
break;
end;
if ok then
write(a[i], ' ');
end;
writeln;
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;
for i:= 1 to n do
write(a[i], ' ');
writeln;
readln(n2);
i := 1;
inc(i);
readln(n2);
i := 1;
while (i<=n) and (a[i]>n2) do
inc(i);
for j := n downto i do
a[j+1]:=a[j];
a[i] :=n2;
inc(n);
for  i:= 1 to n do
write(a[i], ' ');
writeln;
readln;
end.