Bài 11: Kiểu mảng

CT

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.

BT
10 tháng 12 2020 lúc 19:48

Bình luận (0)
NT
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.

Bình luận (0)

Các câu hỏi tương tự
TV
Xem chi tiết
KK
Xem chi tiết
LT
Xem chi tiết
H24
Xem chi tiết
QN
Xem chi tiết
KM
Xem chi tiết
KL
Xem chi tiết
DV
Xem chi tiết
NH
Xem chi tiết