Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thiên Nhật

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 

a) Đếm số hợp số chẵn và số lẻ 

b) Tính tổng các số chẵn 

c) đếm số lượng nguyên tố trong dãy 

 

Vương Hương Giang
14 tháng 2 2022 lúc 14:26

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);

writeln('Tong cac so le la: ',tl);

t:=0;

for i:=1 to n do  

t:=t+a[i];

writeln('Tong cua day so la: ',t);

readln;

end. 

Nguyễn Lê Phước Thịnh
14 tháng 2 2022 lúc 14:32

uses crt;

var a:array[1..1000]of integer;

i,n,dem1,dem2,t1,dem3,j,kt:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

  readln(a[i]);

dem1:=0;

dem2:=0;

t1:=0;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then 

begin

dem1:=dem1+1;

t1:=t1+a[i];

end;

else dem2:=dem2+1;

end;

dem3:=0;

for i:=1 to n do 

  if (a[i]>1) then 

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then dem3:=dem3+1;

end;

writeln(dem1, ' ',dem2);

writeln(t1);

writeln(dem3);

readln;

end.


Các câu hỏi tương tự
Nguyễn Thị Linh
Xem chi tiết
Nguyễn Anh Quân
Xem chi tiết
gió may
Xem chi tiết
ĐOÀN ĐỨC ANH
Xem chi tiết
Bé Kunz
Xem chi tiết
Uyen
Xem chi tiết
NGUYỄN THỊ MỸ LINH
Xem chi tiết
Du Ng
Xem chi tiết
Du Ng
Xem chi tiết