Viết chương trình nhập vào mảng A n phần tử in ra mảng vừa nhập. + in ra các phần không chia hết cho 5. tính tổng phần tử, in ra giá trị tổng + tạo mảng B gồm các số không chia hết cho 5 từ mảng A. Tìm giá trị lớn nhất mảng B. Em cảm ơn ạ

var a,b:array[1..100]of integer;n:integer;
var i,max,s:integer;
begin
        s:=0;
        write('n= ');readln(n);
        for i := 1 to n do
        begin
                readln(a[i]);
        end;
        for i := 1 to n do
        begin
                if a[i] mod 5 <> 0 then
                begin
                        write(a[i],' ' );
                        s:=s+a[i];
                        write(s);
                end;

        end;
        for i := 1 to n do   

        begin

                if a[i] mod 5 <> 0 then
        begin
                a[i] := b[i];
                b[1] := max;
                if b[1] < b[i] then max := b[i];
                write(b[i]);
        end;
        end;
end.

@danhle

program mangAchia5;

uses crt;

var A,B:array[1..10000] of integer;

      n,i,max,t,d:integer;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG A');

d:=0;  t:=0;

for i:=1 to n do

 begin

  write('A[',i,']= ');

  readln(A[i]);

  if A[i] mod 5 <>0 then

   begin

     d:=d+1;

     B[d]:=A[i];

     t:=t+A[i];

    end;

 end;

if d=0 then write('Khong co')

else

 begin

  writeln('Cac phan tu khong chia het cho 5 co trong day la: '); 

  max:=B[1];

  for i:=1 to d do

   begin

    write(B[i],' ');

    if B[i]>max then ax:=B[i];

    end;

  writeln('Tong cua chung la: ',t);

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

 end;

readln

end.