Viết chương trình thực hiện các yêu cầu a, Tạo mảng số nguyên gồm 10 phần tử b, Thông báo ra màn hình các số dương c, Tính tổng phâ

var a: array[1..10] of integer;

      S: word;

Begin

      S:=0;

      For i:=1 to 10 do 

            Begin

                  Write(‘nhap a[‘,i,’] = ‘);

                  readln(a[i]);

                  If a[i]>5 then s:=s+5;

            End;

      For i:=1 to 10 do if a[i]>0

            Then write(a[i], ‘ ‘);

      Write(‘tong phan tu lon hon 5 la ‘, s);

      Readln

End.