Решить задачу в Паскале"Ввести с клавиатуры 15 элеметов символьного массива. Заменить все...

Question

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

Answer 1

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.

Comments

спасибо!!!