Viết chương trình nhập N số nguyên nhập từ bàn phím in ra màn hình số nhỏ nhất và lớn nhất

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 664 24/07/2023


Viết chương trình nhập N số nguyên nhập từ bàn phím in ra màn hình số nhỏ nhất và lớn nhất

Đề bài: Viết chương trình nhập N số nguyên nhập từ bàn phím in ra màn hình số nhỏ nhất và lớn nhất?

Lời giải:

program tim_max_min ; 

var i,n,max,min:integer; 

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

begin 

write('nhap do dai cua day so n=');

readln(n);

writeln('nhap cac phan tu cua day so :'); 

for i:=1 to n do 

begin 

write('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 la:',max); 

writeln('so be nhat la:',min);  readln 

end.

1 664 24/07/2023


Xem thêm các chương trình khác: