program mang;

uses crt;

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

i,n,s: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

s:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

if a[i] mod 11=0 then s:=s+a[i];

end;

writeln ('cac phan tu: ');  

for i:=1 to n do write (a[i]:4);

writeln;

writeln ('tong la: ',s);

readln;

end.

uses crt;
var A:array[1..100] of integer;
i,n,s:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
if A[i] mod 11=0 then s:=s+A[i];
end;
write('Cac phan tu cua mang la: ');
for i:=1 to n do
write(A[i],',');
writeln;
write('So luong so le la:  ',s);
readln
end.