Viết chương trình nhập từ bàn phím số nguyên dương N (N ≤100) và dãy A gồm N số nguyên A1, A2 …AN đếm xem có bao nhiêu số nguyên to
Viết chương trình nhập từ bàn phím số nguyên dương N (N ≤100) và dãy A gồm N số nguyên A1, A2 …AN đếm xem có bao nhiêu số nguyên to
uses crt;
var a,d : array[1..100] of integer;
i,n,s,j : integer;
begin clrscr; s:=0;
write(‘Nhap so phan tu :’); readln(n);
for i:=1 to n do begin
write(‘Nhap a[‘,i,’]=’); readln(a[i]);
end;
for i:=1 to n do begin
for j:=1 to a[i] do if a[i] mod j = 0 then d[i]:=d[i]+1;
if d[i]=2 then s:=s+1; end;
write(‘Co tat ca ‘,s,’ so nguyen to ‘);
readln
end.
program ct;
uses crt;
var i,n,j,so_nt:integer;
A,D:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
so_nt:=0;
for i:=1 to n do
begin
for j:=1 to A[i] do
if A[i] mod j=0 then D[i]:=D[i]+1;
if D[i]=2 then so_st:=so_nt+1;
end;
writeln(‘co’,so_nt,’ la so nguyen to’);
readln
end.