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 (47<ord(mas[i])) and (ord(mas[i]) < 58) then       
mas[i]:='*';     
if mas[i]=' ' then
mas[i]:='_';   
end;     
For i:=1 to 15 do       
Write(mas[i]);   
Readln;
end.

Answer 2

спасибо!!!