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 Sadie
B3
Uses crt;
var a: array [1..100] of integer;
i,n,tc,tl,t:integer;
begin
clrscr,
write(‘Nhap n=’/); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(a[i]);
end;
tc:=0;
tl:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then tc:=tc+a[i]
else tl:=tl+a[i];
end;
writeln(‘Tong cac so chan la: ‘,tc);
t:= 0;
for i:= 1 to n do
t:= t+a [i];
writeln(‘Tong cua day so la: ‘,t);
readln
end.
B3
Uases crt;
var a:array[1..100]of integers
i,n,tc,tl,t:integer;
begiim
clrscr,
write(‘Nhap n=’/); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(a[i]);
end;
tc:=0;
tl:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then tc:=tc+a[i]
else tl:=tl+a[i];
end;
writeln(‘Tong cac so chan la: ‘,tc);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(‘Tong cua day so la: ‘,t);
readln
end.