uses crt;

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

i,n:integer;

min,t:real;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln('Gia tri nho nhat la: ',min:4:2);

t:=0;

for i:=1 to n do 

 if i mod 2=0 then t:=t+a[i];

writeln('Tong cac phan tu co chi so chan la: ',t:4:2);

readln;

end. 

a, Số tự nhiên n lớn hơn 5 và không lớn hơn 79 là số thỏa mãn điều kiện: 5 < n ≤79.

Vậy ta có: A = {n ∈ N|n lẻ và 5 < n ≤79}

b, Khi giá trị của n tăng dần thì giá trị các phần tử của A tạo thành một dãy số cách đều tăng dần (bắt đầu từ số 7, khoảng cách giữa hai số liên tiếp là 2). Giả sử phần tử thứ 12 của A là x thì ta có:

(x – 7) : 2 +1 =12

=> (x – 7) : 2 = 11

=> x – 7 = 22

=> x = 29

Vậy phần tử thứ 12 cần tìm của A là 29

Nhận xét:

Số phần tử của tập hợp A là: (79 – 7) : 2 + 1 = 37 nên A có phần tử thứ mười hai.

Ở câu b), ta có thể viết tập hợp A dưới dạng liệt kê các phần tử cho tới phần tử thứ mười hai. Tuy nhiên cách này có nhược điểm là ta phải liệt kê được tất cả các phần tử đứng trước phần tử cần tìm. Vậy với cách làm này, bài toán yêu cầu tìm phần tử ở vị trí càng lớn thì sẽ càng khó khăn

Program HOC24;

var d,i,n,x: integer;

t: longint;

a: array[1..32000] of integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

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

end;

write('Chi so cac phan tu co gia tri bang 0 la: '); 

for i:=1 to n do if a[i]=0 then write(i,' ');

writeln;

d:=0; t:=0;

write('Nhap X: '); readln(x);

for i:=1 to n do if a[i]>x then d:=d+1;

writeln('Co ',d,' phan tu co gia tri lon hon ',x);

if n=20 then

begin

for i:=5 to 20 do t:=t+a[i];

end else write('Du lieu da cho chua du 20 phan tu');

write('Tong cac phan tu co gia tri nam trong doan 5 den 20 la: ',t);

readln

end.

uses crt;

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

i,n,t,x,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

writeln('Chi so cac phan tu co gia tri bang 0 la: ');

for i:=1 to n do 

  if a[i]=0 then write(i:4);

writeln;

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

dem:=0;

for i:=1 to n do 

  if a[i]>x then inc(dem);

writeln('So phan tu lon hon ',x,' la: ',dem);

t:=0;

for i:=1 to n do 

  if (5<=a[i]) and (a[i]<=20) then t:=t+a[i];

writeln(t);

readln;

end.

a) A = { x \(\in\)N; 3 < x < 99 ; x lẻ }.

b) A = 5;7;9;...;99.

Vậy phần tử thứ 23 của A là:

5 + 23 x 2 - 2 = 49.

a ) A = { a lẻ / a thuộc N* / 3 < a \(\le99\)}

b ) Phần tử thứ 1 của A là 3 . ( 2 . 1 ) + 1 

     Phần tử thứ 2 của A là 5 . ( 2 . 2 ) + 1 

     ....

     Phần tử thứ 23 của A là 47 .   ( 2 . 23 ) + 1 

a) \(A=\left\{x\in N;5< x< 79\right\}\); x là số lẻ.

b) A = 7;9;11;...;77.

Phần tử thứ 12 của A là:

7 + 12 x 2 - 2 = 29.

 A = {4;6;8;........;100}

Phần tử thứ 23 của A là:

23 x 2 - 2 + 4 = 48

Đáp số: 48