.::DIỄN ĐÀN HỌC TẬP VÀ VUI CHƠI::.

Toàn bộ
Tiêu đềNgười tạoNgười gửi cuốiChuyên mụcBìnhXem
Bài gửi sau cùng

You are not connected. Please login or register

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

kingofthedevils


Thành viên tích cực
Thành viên tích cực
uses wincrt;
var a:array[1..100] of integer;
n,i,max,min:integer;
begin
write('nhap n= ');
readln(n);
for i:=1 to n do
begin
write('nhap a[',i,']= ');
readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=2 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('so lon nhat trong mang la ',max);
writeln('so nho nhat trong mang la ',min);
end.
-Phan Bảo Duy-

Xem lý lịch thành viên

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang  Thông điệp [Trang 1 trong tổng số 1 trang]

Permissions in this forum:
Bạn không có quyền trả lời bài viết