3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số
Program P_Max;
Var
i, N, Max : integer;
A: array[1..100] of integer;
Begin
{Nhap N}
write('Hay nhap do dai cua day so, N = '); readln(N);
{Nhap day so}
writeln('Nhap cac phan tu cua day so:');
For i:=1 to N do
Begin
write('a[',i,']='); readln(a[i]);
End;
{Tim Max}
Max:=a[1];
for i:=2 to n do if Max<a[i] then Max:=a[i];
{Hien thi Max ra man hinh}
write('So lon nhat la Max = ',Max);
readln;
End.