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 :))
