viết chương trình có sử dụng biến mảng để lưu laị dãy n số được nhập từ bàn phím a ) tìm ra số lớn nhất b) tìm ra các số chẵn

program mang;

uses crt;

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

      n,i,max: integer;

Begin

         write(‘Nhap so phan tu: ‘); readln(n);

         for i:=1 to n do

         begin

                  write(‘A[‘,i,’]=’); readln(A[i]);

         end;

         write(‘Mang vua nhap la: ‘);

         for i:=1 to n do write(A[i],’  ‘);

         writeln;

         max:=A[1];

         for i:=2 to n do

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

         writeln(‘a) So lon nhat trong mang la: ‘,max);

         write(‘b) Cac so chan trong mang: ‘);

         for i:=1 to n do

              if A[i] mod 2=0 then write(A[i],’  ‘);

         readln

End.