Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
CHU TẠI

Viết chương trình nhập vào mảng B gồm N phần tử , tìm và hiển thị số nhỏ nhất trong mảng.

Bùi Anh Tuấn
10 tháng 12 2020 lúc 19:48

Nguyễn Lê Phước Thịnh
10 tháng 12 2020 lúc 22:29

uses crt;

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

i,n,min:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

min:=b[1];

for i:=1 to n do 

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

writeln('So nho nhat la: ',b[i]);

readln;

end.


Các câu hỏi tương tự
Thuý Vy
Xem chi tiết
Ken Kaneki
Xem chi tiết
Linh Tran
Xem chi tiết
Benny
Xem chi tiết
Quân Nguyễn
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Khanh Linh
Xem chi tiết
Đoàn Thị Trúc Vy
Xem chi tiết
Nguyễn Quang Hà
Xem chi tiết