Viết ct nhập mảng 1 chiều gồm 100 phần tử thuộc kiểu nguyên : a) In ra màn hình danh sách các số chẵn b) In ra màn hình danh sách các số từ 1 đến 10 c

program phuongt;

uses crt;

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

        i: integer;

begin

          clrscr;

          for i:=1 to 100 do

          begin

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

          end;

          write(‘a) Danh sach cac so chan: ‘);

          for i:=1 to 100 do if A[i] mod 2 = 0 then write(A[i]:3);

          writeln();

          write(‘b) Danh sach cac so tu 1 den 10: ‘);

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

          writeln();

          write(‘c) Danh sach cac so le: ‘);

          for i:=1 to 100 do if A[i] mod 2 = 1 then write(A[i]:3);

          readln

end.