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 131
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 VIETJACK1 44256
-
Hỏi từ APP VIETJACK24640
-
Hỏi từ APP VIETJACK21086
Thành viên hăng hái nhất
Xếp hạng tuần này
Xếp hạng tháng này
草原 (Phone 🐼)1980 điểm
Bertha🐼1235 điểm
˜”*°•.˜”*°• đănghihi(☠︎︎✞︎) •°*”˜.•°*”˜1020 điểm
I love Sang in BD880 điểm
Duy Anh875 điểmvrss790 điểm
Đứchsganh^0^620 điểm
Khả Di (phone🐼)445 điểm
Tongtai depzai 🐼395 điểm
vegeta ultra ego350 điểmCông Thắng Bùi335 điểm
G250 điểm
Delta X190 điểm
Danh Uy145 điểm
Angel Tanysha145 điểm
Bài viết mới nhất Lớp 8
-
3 năm trước5508
-
3 năm trước5183
-
3 năm trước4197
-
3 năm trước4061
-
3 năm trước3982
Gửi báo cáo thành công!
