Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hoàng Mai Thy
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
Nguyễn Lê Phước Thịnh
17 tháng 2 2021 lúc 11:50

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.

Buddy
17 tháng 2 2021 lúc 11:04

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ì 

 
Người Rep Dạo
17 tháng 2 2021 lúc 15:13

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.

Người Rep Dạo
17 tháng 2 2021 lúc 15:17


Các câu hỏi tương tự
Khánh Mỹ
Xem chi tiết
Thi Nguyễn
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Vương Thị Minh Tâm
Xem chi tiết
35.Nguyễn Phương thanh
Xem chi tiết
Phan uyển nhi
Xem chi tiết
uyen hihi
Xem chi tiết
Trung Trịnh
Xem chi tiết
Hạnh Lê
Xem chi tiết