1.

program bai1;

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

i,n,max:longint;

begin

wrtie('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 a[i]>max then max:=a[i];

writeln('So lon nhat la ',max);

write('Vi tri la ');

for i:=1 to n do

if a[i]=max then write(i,' ');

readln

end.

Câu 2.

uses crt;

var n,i,min:integer;

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

begin

clrscr;

write('nhap so phan tu cua day:');readln(n);

for i:=1 to n do

begin

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

end;

min:=a[1];

for i:=1 to n do

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

write('gia tri nho nhat cua day so la:',min);

readln;

end.

#Đúng hônq ta?

Gộp câu 1 và 2:

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

      i, n: byte;

      max, min: integer;

Begin

     Write('nhap n = '); readln(n);

     For i:=1 to n do

        Begin

            Write('a[', i, '] = '); readln(a[i]);

            If i=1 then

                  Begin

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

                  End

            Else

                 Begin

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

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

                 End;

        End;

    Writeln('so lon nhat: ', max);

    Writeln('so be nhat: ', min);

    Readln

End.