For i:=1 to length(s) do if copy(S, i, 1)= a then k:=k+1; *
Что выполняет этот фрагмент программы?
Находит количество элементов в массиве
Оцени ответ
