Viết chương trình nhập vào một dãy gồm n số nguyên, tìm số lớn nhất và số nhỏ nhất trong dãy.

program ct;
uses crt;
var a: array [1..23000] of integer;
    n,max,min,i:integer;
begin
    clrscr;
    writeln('Nhap n: ');readln(n);
    max:=0; min:=32767;
    for i:=1 to n do
        begin
        writeln('Nhap a[',i,']: ');readln(a[i]);
        if max < a[i] then max:=a[i];
        if min > a[i] then min:=a[i];
        end;
    writeln('Max = ',max);
    writeln('Min = ',min);
    readln;
end.

____________________

#Duahauvn

uses crt;

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

i , n, max, min : integer;

begin

clrscr;

write(' nhap so n :'); readln(n);

for i := 1 to n do

begin

write('nhap so nguyen thu ', i ,' : ');readln(a[i]);

end;

max := a[1];min:= a[1];

for i := 2 to n do

begin

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

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

end;

writeln('gia tri lon nhat : ', max);

writeln('gia tri nho nhat : ', min);

readln

end.