Решить задачу в Паскале
"Ввести с клавиатуры 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 (47mas[i]:=*;     
if mas[i]= then
mas[i]:=_;   
end;     
For i:=1 to 15 do       
Write(mas[i]);   
Readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.