Ввести с клавиатуры 15 элеметов символьного массива. Заменить все цифры на звёздочки, а все пробелы на знаки подчёркивания. СРОЧНО!!! Жду верного решения спасибо заранее

Ответы:

var

mas: array[1..15] of char,

i:byte,

begin   

Write (Введите массив:),   

For i:=1 to 15 do     

Readln (mas[i]),

For i:=1 to 15 do   

begin     

if (47&lt,ord(mas[i])) and (ord(mas[i]) &lt, 58) then       

mas[i]:=*’,     

if mas[i]= then

mas[i]:=_’,   

end,     

For i:=1 to 15 do       

Write(mas[i]),   

Readln,

end.