Viết chương trình nhập các phần tử và số phần tử trong dãy số. In ra màn hình là các số không thuộc dãy số đó. VD: Nhập vào: 10. 3; 3; 8; 9; 5; 10; 10; 9; 1; 5. In ra màn hình: có 4 số không có trong dãy là 2; 4; 6; 7. ( hiện tại mình cần đoạn cuối n

duongninhthy572003

2 năm trước

Viết chương trình nhập các phần tử và số phần tử trong dãy số. In ra màn hình là các số không thuộc dãy số đó. VD: Nhập vào: 10. 3; 3; 8; 9; 5; 10; 10; 9; 1; 5. In ra màn hình: có 4 số không có trong dãy là 2; 4; 6; 7. ( hiện tại mình cần đoạn cuối nên các bạn chỉ cần ghi đoạn cuối thôi nha các bạn).

Loga Sinh Học lớp 12

0 lượt thích 40 xem

1 trả lời

Thích Trả lời

mai2008

uses crt;
var n,i,j,kt,m:longint; a:array[1..100000000]of longint;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n do
begin
kt:=0;
for j:=1 to n do if i=a[j] then kt:=1;
if kt=0 then write(i,'; ') else inc(m);
end;
if m=n then writeln('Khong co so nao khong thuoc day!');
readln
end.

////////////////////////////////////////////////////

Vote (0) Phản hồi (0) 2 năm trước

hunglop9a5

program oken;
uses crt;
var n,dem,max: integer;
i,j: integer;
kt: boolean;
a:array[1..100]of integer;
begin
clrscr;
write('Nhap so phan tu cua mang: ');readln(n);
for i:=1 to n do
begin
write('A[',i,']: ');readln(a[i]);
end;
dem:=0; max:=a[1];
for i:=2 to n do
if max<a[i] then
max:=a[i];
write('Cac so con thieu: ');
for i:=1 to max do
begin
kt:=true;
for j:=1 to n do
if a[j]=i then
kt:=false;
if (kt=true) then
write(i,' ')
end;
writeln; writeln('Nhan Enter de ket thuc');
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

1.thực hiện phép tính a,-2/3+3/4-(-1/6)+(-2/5) b,-2/3+(-1/5)+3/4-5/6-(-7/10)

Giải nhanh giúp mk vs xong sẽ vote 5sao

Tính giá trị biểu thức a) x^5y - xy^5 biết x - y =2 ; x^2 + y^2 =4 b) x^5 -32y^5 biết xy = 3; x + 2y =7: x>2y

vẽ cho mình một pic anime girl với người iu nha. Mình cảm ơn nhiều <3

1. Hóa học có vai trò gì đối với cuộc sống chúng ta? 2. Khi học tập môn Hóa học, cần thực hiện các hoạt động gì? 3. Muốn học tốt môn Hóa thì phải làm sao?

1/ - (- $\frac{1}{2}$ a - 3b) $^{2}$ 2/ - (-3x-y) $^{2}$

Rút gọn biểu thức a, ( x+ 2y - 3z) ( x - 2y +3z ) b, (a + 1)(a+2) ( a^ + 4) (a-1) (a^ + 1) (a - 2)

Talk about your hobbies. Use the questions below, and your own to help

Nêu 3 sự kiện cơ bản về hoạt động của NST chỉ có trong giảm phân mà không có trong nguyên phân ? Thanks !

Cho hai góc kề bù xOt và tOy, trong đó góc xOt= 40 độ. Gọi tia Oz là tia nằm giữa hai tia Ot và Oy sao cho góc yOz= 100 độ. a) Tính góc xOz, góc tOz? b) Chứng tỏ tia Ot là tia phân giác của góc xOz? c) Gọi Om là tia đối của tia Oz, tính góc yOm?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến