Дан одномерный целочисленный массив из 10 элементов. Сколько частей делятся на

var  

a,b,c:integer;

M:array [1..10] of integer;

begin

b:=0;

M[1]:=1;

for a:= 1 to 10 do M[a]:=a+1;

for a:= 1 to 10 do

begin

if (M[a] mod 3=0)then b:=b+1;

if (M[a] mod 5=0)then c:=c+1;

end;

writeln ('На 3 делится ',b,' чисел(a)');

writeln ('На 5 делится ',c,' чисел(a)');

end.

Написал и проверил в паскале :)

Превосходного денька.