Массив символов - Pascal ABC
Формулировка задачи:
Введите массив символов из 10 элементов. Замените символы-цифры на символ " * ".
Решение задачи: «Массив символов»
textual
Листинг программы
const n=10;
var a:array[1..n] of char;
i:integer;
begin
writeln('A:');
for i:=1 to n do
begin
a[i]:=chr(48+random(15));
write(a[i],' ');
if a[i] in ['0'..'9'] then a[i]:='*'
end;
writeln;
writeln('A'':');
for i:=1 to n do write(a[i],' ')
end.