Bài 11: Kiểu mảng

NL

viết chương trình nhập một mảng số nguyên từ bàn phím tìm phần tử nhỏ nhất và in mảng ra màn hình

ML
13 tháng 4 2022 lúc 12:55

Program HOC24; 

var i,n,min: integer;

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

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' :'); readln(a[i]);

end;

min:=a[1];

for i:=2 to n do

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

write('Phan tu nho nhat la: ',min);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
KK
Xem chi tiết
NT
Xem chi tiết
HB
Xem chi tiết
NL
Xem chi tiết
H24
Xem chi tiết
YN
Xem chi tiết
NN
Xem chi tiết
H24
Xem chi tiết
TN
Xem chi tiết