uses crt;

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

i,n,dem:integer;

max:real;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

end;

dem:=0;

for i:=1 to n do 

  if a[i]>0 then 

begin

inc(dem);

b[dem]:=a[i];

end;

if dem=0 then writeln('1')

else begin

max:=b[1];

for i:=1 to dem do

if max<b[i] then max:=b[i];

writeln(max:4:2);

end;

readln;

end.

Hãy tìm giá trị dương nhỏ nhất trong mảng 1 chiều các số thực nếu mảng không có giá trị dương thì 

Program Gia_tri_duong_nho_nhat;Uses crt;Var a : array[1..100] of real;    n, i : longint;    min : real;    ok : boolean;Begin     Clrscr;     Write(' Nhap so phan tu cua mang : '); readln(N);     ok := false;     min := maxint;     For i := 1 to N do         Begin              Write(' Nhap phan tu thu ',i,' : '); readln(a[i]);              If (a[i] > 0) and (a[i] < min) then                 Begin                      min := a[i];                      ok := true;                 end;         end;     If ok then Write(' So duong nho nhat trong day la : ',min:3:2)           else Write(' -1 ');     readln;end.

Chọn B.

a) Phép cộng và phép trừ

b) Phép trừ

c) Phép trừ, phép nhân và phép chia

a) Tập hợp các số hữu tỉ khác 0 tất cả các phép cộng, trừ, nhân , chia luôn thực hiện được

b) Tập hợp các số hữu tỉ dương : phép trừ không phải luôn thực hiện được

Ví dụ: (1/3) - (3/4) kết quả không phải là số hữu tỉ dương

c) Tập hợp các số hữu tỉ âm: phép trừ, nhân và chia không phải luôn luôn thực hiện được

Ví dụ: (-1/3) - (-3/4) kết quả không phải là số hữu tỉ âm

Tập hợp các số hữu tỉ dương : phép trừ không phải luôn thực hiện được

Ví dụ: (1/3) - (3/4) kết quả không phải là số hữu tỉ dương

 b, Tập hợp các số hữu tỉ dương: 
* Trừ: 1/1 - 111111/2356 = - 46,16086587 (*) 
* Cộng: 1/1 + 111111/2356 = 48,16086587 (*) 
* Chia: 123 : 456 = 0,269736842 (*) 
c, Tập hợp các số hữu tỉ âm: 
* Trừ: -1/1 - (-111111/2356) = 46,16086587 (*) 
* Cộng: -1/1 + (-111111/2356) = - 48,16086587 (*) 
* Chia: -123 : (-456) = 0,269736842 (*) 
a, Tập hợp các số hữu tỉ khác 0 gồm tập hợp các số hữu tỉ dương và âm: 
* Trừ, cộng, chia: VD ở trên

uses crt;

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

i,n,t,ln,nn:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do

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

ln:=a[1];

nn:=a[1];

for i:=1 to n do 

begin

if ln<a[i] then ln:=a[i];

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

end;

writeln(t);

writeln(ln);

writeln(nn);

readln;

end.

Đáp án đúng : B

Đáp án C

Phương pháp:

Rút y theo x từ phương trình (1), thế vào phương trình (2) để tìm khoảng giá trị của x.

Đưa biểu thức P về 1 ẩn x và tìm GTLN, GTNN của biểu thức P.

Cách giải: 

Ta nhận thấy x = 0 không thỏa mãn phương trình (1), do đó  thế vào (2):

Sử dụng MTCT ta tính được