Viết công thức nhập vào mảng A gồm n số nguyên ( A<=100) a, tính tổng các phần tử của mảng b, đếm xem có bao nhiêu phần tử chia hết cho 5 c, sắp xếp mảng dưới dạng tăng dần d, hiện các kết quả ra màn hình Gấp giúp minh nhanh với . Sắp ktra rồi

Xin hay nhất ạ

#Chương trình ngắn

#No copy

uses crt;
var i,n,j,t5,t:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         t:=t+a[i];
         if a[i] mod 5=0 then inc(t5);
         for j:=1 to i-1 do if a[i]<a[j] then
            begin
               t:=a[i];
               a[i]:=a[j];
               a[j]:=t;
            end;
      end;
   writeln('Tong cac phan tu cua mang: ',t);
   writeln('Co ',t5,' phan tu chia het cho 5');
   writeln('Mang duoi dang tang dan: ');
   for i:=1 to n do write(a[i],' ');
readln
end.

program mangnha;

uses crt;

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

      n,i,t,j,tg,d:integer;

begin

clrscr;

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

readln(n);

write('Nhap tung phan tu cua mang A:');

for i:=1 to n do

  begin

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

    readln(A[i]);

  end;

t:=0;

for i:=1 to n do

  t:=t+A[i];

d:=0;

for i:=1 to n do

  if A[i] mod 5=0 then inc(d);

for i:=1 to n-1 do

  for j:=i+1 to n do

   if A[i]>A[j] then 

     begin

       tg:=A[i];

       A[i]:=A[j];

       A[j]:=tg;

    end;

writeln('Tong cac phan tu cua mang la: ',t);

writeln('Co ',d,' phan tu cua mang chia het cho 5');

write('Day sau khi sap xep tang dan la: ');

for i:=1 to n do

  write(A[i],' ');

readln

end.