Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Bích Huyền

hãy lập chương trình nhập từ bàn phím một dãy số nguyên n phần tử (với n<=100) sau đó tính và hiển thị ra màn hình phần tử có giá trị nhỏ nhất, lớn nhất trong dãy

Nguyễn Lê Phước Thịnh
20 tháng 12 2020 lúc 19:53

uses crt;

var a:array[1..100]of integer;

i,n,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do

  begin

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

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

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

readln;

end.

Bùi Anh Tuấn
20 tháng 12 2020 lúc 19:58


Các câu hỏi tương tự
Leoumax
Xem chi tiết
Oanh Nguyễn
Xem chi tiết
Ken Kaneki
Xem chi tiết
Hứa Thị Kim Diệu
Xem chi tiết
Nguyen Loi
Xem chi tiết
Nguyễn tiên
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
Nguyen Nhi
Xem chi tiết
Thảo Nguyên Ngô
Xem chi tiết