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
Trần Hà Thư

Đề 1: Viết chương trình nhập dãy số n từ bàn phím. Sau đó, tìm và hiển thị số nhỏ nhất lên màn hình. Đề 2: Tự luận: Viết chương trình nhập dãy số n từ bàn phím. Sau đó, tìm và hiển thị số lớn nhất lên màn hình.

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

Đề 1: 

uses crt;

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

i,n,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

min:=a[1];

for i:=1 to n do 

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

writeln(min);

readln;

end.

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

Đề 2:

uses crt;

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

i,n,max: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];

for i:=1 to n do 

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

writeln(max);

readln;

end.


Các câu hỏi tương tự
Mẫn Kim Anh
Xem chi tiết
Thư ĐT
Xem chi tiết
Uchiha Obito
Xem chi tiết
Huỳnh Trúc Ly
Xem chi tiết
Nguyễn Như Ngọc
Xem chi tiết
Nguyenthanh
Xem chi tiết
Tuoi tom May
Xem chi tiết
MinhAnh Vũ
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết