Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Văn Lượng

Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của các số tự nhiên trong tệp kiemtra.txt lưu trên ổ đĩa Y. Giúp e vs mn ơi

Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:07

uses crt;

const fi='kiemtra.txt'

var f1:text;

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

min,n,i:integer;

{----------------chuong-trinh-con-------------------}

function nn(x,y:integer):integer;

begin

if x<y then nn:=x

else nn:=y;

end;

{-----------------chuong-trinh-chinh-----------------}

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

min:=nn(a[1],a[2]);

for i:=3 to n do 

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

writeln(min);

readln;

end.

Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:08

Mình xin sửa lại một chút:

uses crt;

const fi='kiemtra.txt'

var f1:text;

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

min,n,i:integer;

{----------------chuong-trinh-con-------------------}

function nn(x,y:integer):integer;

begin

if x<y then nn:=x

else nn:=y;

end;

{-----------------chuong-trinh-chinh-----------------}

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

min:=nn(a[1],a[2]);

for i:=3 to n do 

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

writeln(min);

readln;

end.


Các câu hỏi tương tự
Trần Văn Lượng
Xem chi tiết
Trần Văn Lượng
Xem chi tiết
Trần Văn Lượng
Xem chi tiết
lamgi hoi
Xem chi tiết
B2_Đinh Thị Huệ
Xem chi tiết
Phước Thiện Lê Hoàng
Xem chi tiết
Hoàng Thị Minh Nguyệt
Xem chi tiết
Tiến Đức Nguyễn
Xem chi tiết
TÌNH ĐIÊN DẠI
Xem chi tiết