program ct;
uses crt;
var A:array[1..50] of integer;
i,a,b,c,dem:integer;
S:longint;
begin clrscr;
for i:=1 to 50 do
begin
write('Nhap phan tu thu ',i,': '); readln(A[i]);
end;
writeln('Nhap vao ba so nguyen: '); readln(a,b,c);
S:=a+b+c; dem:=0;
for i:=1 to 50 do
if S mod A[i] =0 then dem:=dem+1;
writeln('Tong cua ba so do chia het cho ',dem,' phan tu cua mang A);
readln;
end.
Học tốt!