Bài 1:

program ct;

uses crt;

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

      i,n,max:integer;

begin clrscr;

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

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     max:=0;

   for i:=1 to n do

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

   writeln('Gia tri lon nhat la: ',max);

readln;

end.

Bài 2:

program ct;

uses crt;

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

      i,n,min:integer;

begin clrscr;

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

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     min:=0;

   for i:=1 to n do

     if A[i] >min then min:=A[i];

   writeln('Gia tri lon nho la: ',min);

readln;

end.

Học tốt!

Bài 1:

program bai_giai;
uses crt;
var so:array[1..10000] of integer;
    n,i,max:integer;
begin
    clrscr;
    write('Nhap n: ');  readln(n);
    for i:=1 to n do read(so[i]);
    max:=so[1];
    for i:=2 to n do
        if so[i]>max then max:=so[i];
    write(max);
    readln;
end.:

Bài 2:

program bai_giai;
uses crt;
var so:array[1..10000] of integer;
    n,i,min:integer;
begin
    clrscr;
    write('Nhap n: ');  readln(n);
    for i:=1 to n do read(so[i]);
    min:=so[1];
    for i:=2 to n do
        if so[i]<min then min:=so[i];
    write(min);
    readln;
end.