Viết chương trình nhập vào một dãy số gồm 30 phần tử. a) In ra màn hình các phần tử chẵn và tổng của chúng a) In ra màn hình các phần tử lẻ và tổng của chúng

program a;

uses crt;

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

      i,S:integer;

begin clrscr;

   for i:=1 to 30 do

     begin

        writeln('A[',i,']'); readln (A[i]);

     end;

   S:=0;

  for i:=1 to 30 do

    begin

       if A[i] mod 2=0 then writeln('Cac phan tu chan la: ',A[i]);

       S:=S+A[i];

     end;

   write('Tong cac phan tu chan la: ',S);

   for i:=1 to 30 do

     begin

        if A[i] mod 2<>0 then writeln('Cac phan tu le la: ',A[i]);

        S:=S+A[i];

      end;

   write('Tong cac phan tu le la: ',S);

readln;

end.

Học tốt!