Bài 3: Viết chương trình từ bàn phím số nguyên dương n (n<=100) và dãy A gồm n phần tử số nguyên A1, A2……An. a/ Hãy đếm xem trong dãy có bao nhiêu số nguyên tố trong dãy? b/ Hãy tính tổng các số hoàn hảo có mặt trong dãy số? Yêu cầu: Viết chương trình con nhập dãy số A từ bàn phím.
Bài 3: Viết chương trình từ bàn phím số nguyên dương n (n<=100) và dãy A gồm n phần tử số nguyên A1, A2……An. a/ Hãy đếm xem trong dãy có bao nhiêu số
By Daisy
program phuongt;
uses crt;
type A= array[1..500] of integer;
var n: integer;
K: A;
function kt(B: A): integer;
var i, j, d, s, t: integer;
begin
for i:=1 to n do
begin
write(‘A[‘, i, ‘] = ‘); readln(B[i]);
end;
d:=0;
for i:=1 to n do
begin
s:=0;
for j:=1 to B[i] do if B[i] mod j = 0 then s:=s+1;
if s=2 then d:=d+1;
end;
writeln(‘Co ‘, d, ‘ so nguyen to trong day’);
t:=0;
for i:=1 to n do
begin
s:=0;
for j:=1 to B[i]-1 do if B[i] mod j = 0 then s:=s+j;
if s=B[i] then t:=t+s;
end;
write(‘Tong cac so hoan hao co trong day: ‘, t);
end;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
kt(K);
readln
end.