Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Hoài Thu

Viết chương trình dùng biến mảng để nhập dãy số n từ bàn phím và in ra giá trị lớn nhất và giá trị nhỏ nhất của dãy số đó

Mai mình thi rồi!!!Giúp mình vs!!!!!

Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:20

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.


Các câu hỏi tương tự
Hiếu Phùng Mạnh
Xem chi tiết
Hắc Lang
Xem chi tiết
Ngọc Lê Thị Bích
Xem chi tiết
ẩn danh
Xem chi tiết
Linh Linh
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Lê Thùy Dương
Xem chi tiết
Phan Hồng Anh
Xem chi tiết