Question

Bài Viết chương trình nhập xuất mảng 1 chiều gồm n số thực. Hãy tìm giá trị dương nhỏ nhất trong mảng 1 chiều các số thực. Nếu không có giá trị dương nhỏ nhất thì trả về -1

Answer 1

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.

Answer 2

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ì 

 

Answer 3

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.

Answer 4