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!

Program Hotboy;

Uses crt;

Var A:array[1..50] of integer;

So1,so2,so3 : integer;

S:longint;

Dem,i:byte;

Begin

Clrscr;

S:=0; dem:=0;

Write('nhap 3 so'); 

Readln(so1,so2,so3);

S:=so1+so2+so3;

For i:=1 to 50 do

Begin

Write('A[',i,']');

Readln(A[i]);

End;

For i:=1 to 50 do

If (S mod A[i] =0) then inc(dem);

Writeln('tong chia het cho',dem,'phan tu');

Readln

End.