Chương trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Văn Lâm

Bài 1 Đọc vào N số nguyên, kiểm tra xem có bao nhiêu số khác nhau và đếm số lượng các số này.

Bài 2: Lậptrình đọc dãy số n số nguyên, sau đó làm các việc sau.

a) Sắp xếp các số chẵn lên đầu dãy

b) Sắp xếp các số chia hết 5 lên đầu dãy

c) Sắp xếp các số lẻ và nhỏ hơn 10 xuống cuối dãy

Nguyễn Lê Phước Thịnh
28 tháng 10 2020 lúc 10:35

Bài 1:

uses crt;
var a,b:array[1..100]of integer;
i,n,dem,j,kt,dem1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
b[1]:=a[1];
dem:=1;
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if a[i]=b[j] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
for i:=1 to dem do
write(b[i]:4);
writeln;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to n do
if b[i]=a[j] then inc(dem1);
writeln(b[i],' xuat hien ',dem1,' lan');
end;
readln;
end.

Bài 2:

uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
for i:=1 to n do
if a[i] mod 5=0 then write(a[i]:4);
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i]<10) then write(a[i]:4);
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Thái Bảo
Xem chi tiết
Hà Phương
Xem chi tiết
Trần Vi Nam Khánh
Xem chi tiết
Vân Ngô
Xem chi tiết
Quỳnh Anh
Xem chi tiết
Quỳnh Anh
Xem chi tiết
Nguyễn Thị Tươi
Xem chi tiết
Lê Trung Hiếu
Xem chi tiết
Lê Thị Bảo Trâm
Xem chi tiết