program so_max;

uses crt;

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

      n,i,max:integer;

begin

       clrscr;

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

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(A[i]);

              end;

       max:=A[1];

       for i:=2 to n do

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

       write(max);

       readln;

end.

Thuật toán:

Bước 1:gán A<-0. I<-1;

Bước 2: A<-1/I(I+2);

Bước 3: I<-I+1

Bước 4:Nếu I<=N, quay lại bước 2

bước 5: Ghi kết quả A và kết thúc thuật toán

Chương trình:

program so_max;

uses crt;

var A,i ,n, max: integer;

begin

clrscr;

 writeln('Nhap n: ');   readln(n);

for i:=1 to n do begin writeln('Nhap so thu ',i,': ');   readln(A[i]); end;

       max:=A[1] ;

for i:=2 to n do if A[i]>max then max:=A[i];

       writeln(max);

       readln;

end.

CHÚC BẠN HỌC TỐT :))