Program BTT;
Uses crt;
Var A: array[1..10] of longint;
i,s: longint;
Begin
Clrscr;
For i:=1 to 10 do
Begin
Write('A[',i,'] = '); Readln(A[i]);
End;
Write('Cau a: In ra gia tri cac phan tu cua mang: ');
For i:=1 to 10 do Write(A[i],' ');
Writeln;
Write('Cau b: In ra cac phan tu co chi so chan: ');
For i:=2 to 10 do
If i mod 2 = 0 then Write(A[i],' ');
Writeln;
Write('Cau c: Tong cac phan tu co gia tri le: ');
s:=0;
For i:=1 to 10 do
If A[i] mod 2 <> 0 then s:=s+A[i];
Write(s);
Readln
End.
