Bài 9. Làm việc với dãy số

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

Viết chương trình nhập N số nguyên từ bàn phím tìm số lớn nhất và nhỏ nhất của dãy số.

Thế Thôi
24 tháng 4 2022 lúc 20:57

program b1;
uses crt;
var a:array[1..100] of integer; i,n,max,min:integer;
begin
clrscr;
write('Nhap vao so nguyen n:');
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if(a[i]<min) then min:=a[i];
if(a[i]>max) then max:=a[i];
end;
writeln(' gia tri lon nhat = ',max);
writeln(' gia tri nho nhat = ',min);
readln;
end.

Tham khảo!


Các câu hỏi tương tự
Nguyễn Ngọc
Xem chi tiết
Trần Hà Thư
Xem chi tiết
Minh
Xem chi tiết
Phạm Minh
Xem chi tiết
Nhàn Huỳnh
Xem chi tiết
Tuoi tom May
Xem chi tiết
Mẫn Kim Anh
Xem chi tiết
Trần Minh Trí
Xem chi tiết
Nguyễn Như Ngọc
Xem chi tiết