VIẾT CHƯƠNG TRÌNH :CHO 1 DÃY SỐ NGUYÊN A1,A2,..,An. TÌM SỐ NGUYÊN LỚN NHẤT TRONG DÃY. (GIẢI THÍCH CẶN KẼ THÌ CÀNG TỐT).
VIẾT CHƯƠNG TRÌNH :CHO 1 DÃY SỐ NGUYÊN A1,A2,..,An. TÌM SỐ NGUYÊN LỚN NHẤT TRONG DÃY. (GIẢI THÍCH CẶN KẼ THÌ CÀNG TỐT).
uses crt; {khai báo tên thư viện(crt)}
var a: array[1..100] of integer; {khai báo mảng}
n,i,max: integer; {khai báo các biến cần dùng}
begin
clrscr; {xóa màn hình}
write (‘nhap so phan tu: ‘); {in ra màn hình “nhap so phan tu” để yêu cầu nhập số phần tử}
readln (n); {đọc giá trị vừa nhập vào biến n}
for i:=1 to n do {cho i chạy từ 1 đến n (n vừa nhập)}
begin {câu lệnh ghép nên phải dùng begin…end;}
write (‘nhap a[i]: ‘); {in ra màn hình “nhap a[1 hay 2 hay 3 hay 4….phụ thuộc vào giá trị i]” để yêu cầu nhập giá trị thứ i(i tăng lên sau 1 lần lặp)}
readln (a[i]); {đọc giá trị vừa nhập vào a[i]}
if a[i]>max then max:=a[i]; {nếu a[i]>max thì max:=a[i]}
end; {kết thúc câu lệnh ghép}
writeln (‘so lon nhat: ‘,max); {in kết quả của biến max ra màn hình}
readln; {dừng màn hình để xem kết quả}
end.
program tim_max;
uses crt;
var A:array[1..1000] of integer;
n,i,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:=2 to n do
if A[i]>max then max:=A[i];
write(max);
readln;
end.
Giải thích:
ban đầu là nhập dãy
sau đó cho biến max=A[1];
cho i chạy từ 2 đến n, nếu A[i]>max thì max gán bằng A[i].
Như thế ta sẽ tìm được số lớn nhất từ 1 đến n.