Дан массив натуральных чисел a1, a2, ....,an. Найдите количество элементов массива, кратные 3 и не кратные 5
Новая переменная k For I:= 1 to an do if A[i]mod 3 = 0 then k:=k+1; A[i]mod 5 <>0 then k:=k+1;
Можете полностью написать? Как в паскале программу вводите