Thao Nguyen
Hỏi từ APP VIETJACK
Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất
Quảng cáo
2 câu trả lời 141
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('So nho nhat la: ',min);
readln;
end.
2 năm trước
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('So nho nhat la: ',min);
readln;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44773
-
Hỏi từ APP VIETJACK26397
Thành viên hăng hái nhất trong tuần
-
xixin
525 điểm
-
Trann Viett Cuongg
150 điểm
-
红玫瑰✿✿✿
130 điểm
-
truc chu 120 điểm
-
௹ġọ©
85 điểm
-
Zin Phan 85 điểm
-
Thanh Hải 45 điểm
-
You’re crazy! 45 điểm
-
LILY
40 điểm
-
lê hoàng anh
35 điểm
-
Trần Minh Nhật 30 điểm
-
Gia Hưng Vũ 25 điểm
-
liễu đặng 25 điểm
-
Mimi
20 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước7526
-
3 năm trước7159
-
3 năm trước6162
-
3 năm trước5915
-
3 năm trước5969
Gửi báo cáo thành công!
