Массив символов - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д