CHO MÌNH XIN CTLHN NHÉ😍😍😍

code của mình đã tối ưu hóa rồi nhé ❤

*pascal:

uses crt;

var  sc,sl,c,l,x,n,i:integer;

begin

    clrscr;

    write('Nhap do dai cua day so nguyen:');  readln(n);

    sc:=0;  sl:=0;  c:=0;  l:=0;

    for i:=1 to n do

       begin

          write('Nhap a[',i,']:');   readln(x);

          if ((x mod 2) =0) then

             begin

               sc:=sc+x;     inc(c);

             end

          else  

             begin

               sl:=sl+x;     inc(l);

             end;

       end;

    writeln('A. Tong cua cac phan tu chan:',sc);

    writeln('B. Tong cua cac phan tu le:',sl);

    writeln('C. Dem cac phan tu chan:',c);

    writeln('D. Dem cac phan tu le:',l);

    readln;

end.

program day_so;
Uses crt;
Var
    n,i,TC,TL,demc,deml:integer;
    A:array[1..1000] of integer;
Begin
    clrscr;
    write('Nhap so phan tu: '); readln(N);
    For i:=1 to n do readln(A[i]);
    TC:=0; TL:=0; demc:=0; deml:=0;
    For i:=1 to n do 
    Begin
        if A[i] mod 2=0 then
        Begin
            TC:=TC+A[i]; demc:=demc+1;
        end else
        Begin
            TL:=TL+A[i]; deml:=deml+1;
        end;
    end;

    writeln('Tong cac phan tu chan: ',TC);
    writeln('Tong cac phan tu le: ',TL);
    writeln('So phan tu chan: ',demc);
    writeln('So phan tu le: ',deml);
    Readln;
end.

#HNgoc

#Anh/Chi_hoc_tot