дан массив целых чисел.найти количество элементов массива,значения которых кратны 3 и 5

"vvedite kol-vo elementov massiva" - за такое пальцы отрубать надо, чтоб больше клавиатуры не касались.

если человек не понимает программирование вообще, пусть хоть компьютерная программа с ним поговорит ))))) чтобы было какое-то подобие изучения информатики

Если бы со мной так программа начала говорить, я бы, наверное, разбил монитор с ноги.

program zadacha;vara: array[1..1000] of integer;i,n,kolvo: integer;beginwriteln('vvedite kol-vo elementov massiva');read(n);for i:=1 to n do begina[i]:=random(500);write(a[i]:6);end;writeln();kolvo:=0;for i:=1 to n do beginif (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then begin kolvo:=kolvo+1;write(a[i]:6);  end;end;writeln();writeln('kol-vo elementov, kratnih 3, 5 = ', kolvo);end.