Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Vương Tuấn Đạt

Viết chương trình nhập vào dãy số tự nhiên. Hãy xuất ra màn hình:Dòng 1: gồm các số lẻ, tổng cộng có bao nhiêu số lẻ;Dòng 2: gồm các số chẵn, tổng cộng có bao nhiêu số chẵn;

Dòng 3: gồm các số nguyên tố.

 

Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 13:26

uses crt;

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

i,n,dem,dem1,dem2,j,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

writeln('Cac so le la: ');

for i:=1 to n do 

if a[i] mod 2<>0 then 

begin

write(a[i]:4);

inc(dem);

end;

writeln;

writeln('Co ',dem,' so le');

dem1:=0;

writeln('Cac so chan la: ');

for i:=1 to n do 

  if a[i] mod 2=0 then

begin

write(a[i]:4);

inc(dem1);

end;

writeln;

writeln('Co ',dem1,' so chan');

dem2:=0;

for i:=1 to n do 

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to a[i]-1 do 

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

if kt=0 then inc(dem2);

end;

writeln('Co ',dem2,' so nguyen to');

readln;

end.


Các câu hỏi tương tự
Nhảy chân sáo mà từ từ đ...
Xem chi tiết
Sarah Lilia
Xem chi tiết
yuki
Xem chi tiết
Thái Thích
Xem chi tiết
T.Tài
Xem chi tiết
Trần Cương
Xem chi tiết
Huỳnh Mai Anh Thư
Xem chi tiết
Ho Hai Trieu
Xem chi tiết
Benny
Xem chi tiết