Задача:Задан массив букв и чисел. Найти произведение всех чисел заданного массива.
Перерыла почти весь поиск. Не знаю как отсортировать буквы и цифры от массива. Помогите решить.
if s[i] in ['0'..'9'] then begin
val(s[i], x, e);
p := p * x;
end;
Const
arr: array[1 .. 5] of string = (
'a', '16', '-34', 'e', 'm'
);
val(s[i],x,e);
if e=0 then
p:=p*x