В массиве A[100] найти среднее арифметическое, кратных 5 и кратных 3 элементов массива.

var

i, n:integer;

p:real;

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

begin

for i:=1 to 100 do

begin

a[i]:=random (50) + 1;

write (a[i],' ');

if (a[i] mod 5=0) and (a[i] mod 3=0) then

begin

p:=p+a[i];

n:=n+1;

end;

end;

writeln;

p:=p/n;

writeln ('Ответ: ', p);

end.