Viết chương trình nhập vào giá trị của 10 phần tử trong mảng (kiểu nguyên) a) In ra màn hình các giá trị trong máy theo thứ tự từ dưới lên trên b) In ra màn hình giá trị của các phần tử ở số thứ 5 c) cho t = 7, in ra màn hình các chỉ số có giá trị phần tử = 7 d) In ra màn hình giá trị của các phần tử tại các chỉ số chẵn trên cùng 1 hàng và thông báo tổng của chúng

uses crt;
const t=7;
var A:array[1..10] of integer;
    i,tong:integer;
begin
   clrscr;
   for i:=1 to 10 do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
      if i mod 2 = 0 then tong:=tong+A[i];
   end;
   for i:=10 downto 1 do write(A[i]:4);
   writeln;
   write('A[5]=',A[5]);
   writeln;
   write('Cac chi so co gia tri phan tu bang 7: ');
   for i:=1 to 10 do if A[i]=7 then write(i:4);
   writeln;
   for i:=1 to 10 do if i mod 2 = 0 then write(A[i]:4);
   writeln;
   write('Tong cua chung la: ',tong);
   readln
end.