Массив символов - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.818 из 5
Похожие ответы