uses crt;
var a:array[1..100]of integer;
i,n,ln:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{--------------------xuat-day---------------------}
for i:=1 to n do
write(a[i]:4);
{-------------------xu-ly-------------------------}
writeln;
ln:=a[1];
for i:=1 to n do
if ln<a[i] then ln:=a[i];
writeln('so lon nhat la: ',ln);
readln;
end.
thuật toán:
Bước 1: nhập các số a1,a2,...,an
Bước 2: Max ← a1 và i ← 1
Bước 3: Nếu ai > Max, gán Max ← ai
Bước 4: i ← i + 1
Bước 5: nếu i ≤ n, quay lại bước 2
Bước 6: thông báo giá trị Max và kết thúc thuật toán
