Nhập số n( n là số lượng số nhập vào ) ,kiểm tra trong các số đã nhập để tìm mã trong dãy số (các số nhập vào biến x) Vd: Nhập n =4 thì sẽ nhập vào được 4 số - 3 - 1 - 0 - 8 Thì in Max=8 Thuật toán : - nhập n=4 - Max:=1 - For I := 1 to n do - nhập số thứ 1 ( biến x : lưu giá trị nhập vào) - Đk max<x và max =x - in max ra màn hình

uses crt;
var a:array[1..100] of longint;
        n,i,max:longint;
    begin
  clrscr;
readln(n);
for i:=1 to n do
    readln(a[i]);
max:=a[1];
for i:=2 to n do
    if max<a[i] 
    then 
        max:=a[i];
    writeln(max);
readln
  end.

$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program lmao;
uses crt;
var n,x,i,Max: integer;
      a: array[1..1000] of integer;
begin
clrscr;
         writeln('Nhap so luong phan tu: '); readln(n);
         for i:=1 to n do
         begin
         writeln('Nhap gia tri thu ',i,': '); readln(a[i]);
         end;
         Max:=A[1];
         for i:=2 to n do
         if Max<A[i] then Max:=A[i];
         writeln('Phan tu lon nhat trong mang vua nhap la:', Max);
         readln;
         End.